Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  998 1700 (N33E20 L=312)   761    132        2 ( 950/1641-1053/1747) -28.6 E25-E14 N29-N35
      2 1184 1513 (N25E03 L=330)   242     74        0 (1170/1475-1202/1551) -45.0 E04-W00 N22-N27
      3 1029 1469 (N18E10 L=322)   214     72        0 ( 998/1454-1077/1483)  11.3 E12-E07 N17-N18
      4  193 1405 (S00E72 L=261)   709     60        1 ( 173/1384- 224/1435)  -5.2 E77-E66 S01-N01
      5 1746 1287 (N27W41 L= 14)   356     47        0 (1727/1254-1769/1315)  76.0 W39-W43 N25-N29
      6 1834 1222 (N26W51 L= 24)   381     49        0 (1812/1195-1852/1244) -26.6 W48-W53 N24-N27
      7  324 1171 (S13E48 L=285)   271     63        1 ( 308/1136- 342/1203)  76.0 E49-E47 S14-S10
      8 1193 1138 (N03W07 L=340)   639    255        1 (1058/1114-1301/1172)  30.3 W00-W12 N00-N07
      9  482 1122 (S13E35 L=298)   240     30        1 ( 462/1095- 498/1146) -56.3 E36-E33 S14-S11
     10  189 1078 (S20E61 L=272)   404     89        0 ( 171/1030- 219/1108)  45.0 E63-E57 S22-S17
     11  366  934 (S26E41 L=292)   632    173        0 ( 281/ 896- 433/ 958)   4.1 E49-E35 S27-S24
     12 1707  824 (S00W47 L= 20)   590    119        1 (1652/ 805-1775/ 848)  10.3 W42-W53 S02-N01
     13 1610  723 (S08W44 L= 16)   306     62        1 (1597/ 690-1627/ 758) -63.4 W41-W45 S10-S06
     14  940  699 (S27W03 L=336)   201     85        0 ( 895/ 674- 978/ 724)   0.0 W00-W05 S28-S26
     15  262  659 (S45E56 L=277)  1268    203        0 ( 195/ 617- 353/ 712)  -7.8 E68-E44 S46-S42
     16 1621  639 (S12W48 L= 21)   262     43        0 (1596/ 614-1645/ 660)  71.6 W46-W49 S14-S11
     17  461  598 (S45E32 L=301)   319     70        0 ( 432/ 559- 492/ 632) -45.0 E34-E28 S47-S43
     18 1343  552 (S25W33 L=  6)   517     89        0 (1292/ 537-1396/ 572)  23.2 W29-W36 S26-S23
     19 1553  424 (S26W56 L= 29)  1734    281        5 (1426/ 381-1687/ 472)  35.2 W47-W65 S31-S19
     20 1294  369 (S37W41 L= 13)   343     45        0 (1267/ 354-1327/ 387)  11.3 W37-W43 S38-S35
  

    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