Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  828 1837 (N55E21 L=162)   587     87        2 ( 781/1812- 869/1850)   0.0 E26-E16 N52-N56
      2 1606 1512 (N28W43 L=226)   302     51        0 (1576/1496-1638/1527)  -9.5 W40-W46 N27-N29
      3  273 1453 (N25E60 L=123)  1133     98        4 ( 232/1418- 300/1502)  71.6 E65-E55 N22-N28
      4 1798 1431 (N24W62 L=244)   656     97        0 (1765/1395-1837/1469) -45.0 W57-W66 N21-N26
      5  894 1325 (N15E08 L=175)   425    133        0 ( 826/1306- 958/1350) -14.0 E12-E04 N13-N16
      6  369 1244 (N11E44 L=139)   300     48        0 ( 355/1212- 382/1275) -76.0 E45-E42 N08-N12
      7  434 1108 (N02E38 L=145)   779    303        1 ( 362/ 991- 502/1227)  52.4 E43-E33 S04-N09
      8  431 1194 (N08E39 L=144)   343     61        0 ( 412/1154- 446/1224) -76.0 E40-E37 N05-N09
      9  500 1149 (N05E33 L=150)   276     65        1 ( 473/1115- 518/1180) -63.4 E35-E31 N02-N06
     10 1094  844 (S14W04 L=187)  1159    395        1 (1002/ 690-1148/1017)  68.2 E01-W07 S23-S03
     11 1605  786 (S17W39 L=222)   334    118        1 (1556/ 770-1660/ 809)   7.1 W35-W43 S17-S15
     12 1030  468 (S39W00 L=183)   928    270        1 ( 884/ 437-1144/ 495)   8.5 E11-W09 S40-S36
     13  975  307 (S52E05 L=178)   504    101        1 ( 920/ 291-1021/ 331)  -6.3 E09-W00 S53-S49
  

    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