Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  421 1592 (N11E58 L= 18)  2137    398        6 ( 353/1477- 513/1681)  71.6 E64-E51 N03-N17
      2  841 1599 (N21E28 L= 48)   337    121        1 ( 794/1557- 879/1641) -20.6 E32-E24 N19-N23
      3 1285 1346 (N19W06 L= 82)   999    309        1 (1257/1208-1328/1479) -59.0 W01-W11 N11-N27
      4  248 1332 (S07E62 L= 14)   650    130        1 ( 213/1291- 271/1396) -81.9 E65-E59 S10-S03
      5 1619 1350 (N30W28 L=104)   371     31        1 (1598/1328-1643/1377) -33.7 W25-W29 N28-N31
      6 1475 1176 (N15W21 L= 97)   456    114        0 (1454/1122-1495/1229) -71.6 W19-W23 N11-N17
      7  182  953 (S31E58 L= 18)  1810    412        4 (  97/ 924- 275/ 979)  14.7 E67-E48 S33-S27
      8 1292  920 (S05W18 L= 94)   223     38        2 (1266/ 890-1314/ 942) -71.6 W15-W18 S06-S03
      9  723  878 (S23E13 L= 63)   422    122        0 ( 682/ 832- 757/ 936)  76.0 E15-E11 S26-S18
     10  435  743 (S38E32 L= 44)  1187    245        1 ( 342/ 711- 528/ 785)  17.4 E40-E24 S42-S34
     11 1835  666 (N00W69 L=145)  1126    247        2 (1798/ 644-1886/ 703)  12.1 W63-W78 S01-N03
     12  958  596 (S32W09 L= 85)  1074    198        1 ( 876/ 519-1045/ 686)  70.3 W05-W11 S38-S24
     13 1291  579 (S23W30 L=106)   530    119        0 (1219/ 547-1352/ 623)  58.0 W26-W32 S26-S18
     14 1582  575 (S14W49 L=125)   375    104        0 (1538/ 559-1618/ 592)  15.9 W44-W51 S15-S11
  

    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