Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  192 1127 (N31E56 L=256)  1830    401        0 ( 123/1016- 269/1216) -49.4 E63-E49 N23-N37
      2 1885 1050 (S19W59 L= 12)   488     89        2 (1866/1017-1909/1081) -68.2 W56-W61 S21-S16
      3  966  970 (N04E05 L=308)   387     87        0 ( 927/ 939-1023/1008)   8.1 E07-W00 N02-N05
      4  844  990 (N08E11 L=302)   464    125        1 ( 777/ 969- 916/1007) -35.5 E14-E07 N05-N10
      5  509  941 (N14E33 L=280)   619    156        0 ( 437/ 891- 572/ 978)   5.2 E38-E27 N12-N15
      6 1337  897 (S10W14 L=326)   247     83        1 (1290/ 871-1369/ 927)   9.5 W10-W16 S10-S08
      7  334  870 (N13E48 L=265)   376    141        2 ( 273/ 851- 368/ 891) -29.7 E52-E44 N11-N15
      8 1535  823 (S20W25 L=337)   371    113        0 (1515/ 765-1556/ 882)  56.3 W22-W26 S22-S16
      9 1203  764 (S13W03 L=315)   240    155        0 (1193/ 692-1221/ 843)  53.1 W00-W06 S17-S09
     10  219  772 (N10E63 L=250)   844    129        0 ( 193/ 711- 253/ 837) -83.7 E64-E60 N05-N14
     11 1043  541 (S22E13 L=300)  1659    316        6 (1005/ 394-1097/ 722)  50.2 E20-E05 S31-S12
     12  389  478 (S10E59 L=253)  3528    561        9 ( 248/ 325- 448/ 587) -78.7 E69-E52 S21-S01
     13  311  487 (S09E68 L=244)  1096    204        2 ( 282/ 449- 342/ 516)  16.7 E73-E62 S11-S06
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y