Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  975 1886 (N47E39 L=111)   724     76        1 ( 945/1851-1001/1912) -20.0 E44-E33 N44-N49
      2  756 1854 (N37E51 L= 99)   679     66        0 ( 723/1825- 791/1876)  90.0 E54-E48 N34-N40
      3 1163 1647 (N33E10 L=140)   687     84        1 (1131/1611-1199/1688) -39.8 E12-E06 N30-N36
      4  603 1483 (N09E37 L=113)   552    105        2 ( 555/1454- 654/1507)  45.0 E39-E34 N06-N11
      5  403 1452 (N03E51 L= 99)   431     56        0 ( 381/1419- 427/1480)  90.0 E52-E49 N00-N05
      6  502 1279 (S05E37 L=113)   818    235        1 ( 424/1181- 566/1372) -28.1 E45-E30 S09-N00
      7  969 1293 (N06E10 L=140)   403    122        0 ( 921/1252- 998/1345)  74.1 E11-E08 N02-N09
      8 1749 1276 (N29W41 L=191)   522    113        0 (1708/1230-1780/1314) -23.2 W36-W44 N26-N30
      9  347 1247 (S10E49 L=102)   553    127        1 ( 315/1194- 395/1298)  60.3 E50-E45 S13-S06
     10  134 1172 (S17E72 L= 79)  1319    140        2 ( 112/1103- 158/1238)  90.0 E75-E68 S21-S13
     11 1571 1116 (N13W29 L=179)   431    145        1 (1537/1070-1605/1148) -21.8 W26-W31 N10-N14
     12  616 1074 (S14E25 L=125)   895    275        3 ( 530/1036- 705/1111)  24.4 E30-E18 S17-S11
     13  765  735 (S30E08 L=142)   293     47        2 ( 743/ 709- 792/ 760)   0.0 E09-E05 S31-S28
     14 1469  666 (S14W36 L=187)  1209    294        2 (1333/ 634-1594/ 727)  42.7 W29-W43 S19-S07
     15  759  411 (S51W02 L=152)   270     30        0 ( 741/ 390- 781/ 437) -45.0 W00-W04 S52-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