Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  395 1591 (N58E49 L=320)  1328    198        2 ( 301/1567- 488/1628)   1.5 E71-E34 N56-N59
      2 1608 1436 (N15W49 L= 58)   579    161        0 (1580/1378-1643/1502)  49.4 W46-W55 N10-N17
      3 1188 1312 (N20W17 L= 26)  1739    546        0 ( 930/1266-1405/1360) -23.2 W01-W29 N13-N25
      4  653 1327 (N33E17 L=352)   408    158        0 ( 586/1307- 732/1344) -26.6 E21-E11 N30-N35
      5  186 1216 (N34E65 L=304)  1909    124        5 ( 120/1174- 247/1246)  -6.6 E81-E55 N31-N36
      6  914 1003 (N09E07 L=  2)   811    233        3 ( 844/ 904- 961/1100)  85.6 E09-E04 N02-N15
      7 1831  970 (S17W53 L= 62)   938    125        2 (1795/ 933-1893/1009)  -9.5 W49-W61 S19-S14
      8 1326  808 (S12W12 L= 21)   310     74        0 (1282/ 779-1361/ 829) -59.0 W10-W14 S14-S09
      9  799  567 (S14E24 L=344)   816    161        1 ( 765/ 488- 841/ 638)  48.4 E27-E19 S19-S10
     10  264  579 (S05E67 L=302)   685     60        1 ( 247/ 543- 288/ 607)  45.0 E71-E63 S07-S03
     11 1723  542 (S43W43 L= 51)   536     73        1 (1695/ 522-1759/ 567)   0.0 W39-W48 S44-S40
     12 1519  414 (S45W20 L= 29)   989    251        1 (1403/ 359-1626/ 464)  -5.0 W09-W32 S47-S43
     13  630  271 (S31E53 L=316)  1507    124        3 ( 582/ 215- 672/ 321)  18.4 E66-E45 S35-S27
  

    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