Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  621 1822 (N42E55 L= 92)  1273     92        1 ( 588/1781- 654/1858) -20.2 E67-E48 N38-N45
      2  973 1674 (N34E15 L=132)   451     61        0 ( 942/1645-1012/1699)  45.0 E16-E12 N31-N36
      3  388 1603 (N22E59 L= 89)  1265    187        5 ( 360/1512- 417/1679) -38.7 E70-E51 N16-N28
      4  924 1381 (N14E11 L=136)   440     91        1 ( 886/1354- 965/1420)  59.0 E13-E08 N11-N16
      5 1812 1262 (N22W53 L=200)  2674    313        2 (1738/1140-1881/1380) -42.7 W45-W61 N15-N29
      6 1526 1312 (N19W28 L=175)   240     44        1 (1509/1280-1543/1341)  90.0 W26-W28 N17-N21
      7 1118 1242 (N08W02 L=150)   521    136        1 (1069/1201-1181/1280)  -9.5 W00-W06 N05-N09
      8  316 1207 (S03E50 L= 97)   588    151        0 ( 301/1128- 338/1275) -60.3 E52-E46 S07-N00
      9  155 1115 (S10E67 L= 81)  1246    141        1 ( 134/1047- 178/1176) -53.1 E70-E62 S13-S05
     10 1277 1094 (N02W14 L=161)   346    141        1 (1228/1046-1318/1119)  45.0 W11-W16 S01-N03
     11 1378 1061 (N01W20 L=168)   280    111        0 (1332/1035-1413/1108)  45.0 W17-W22 N00-N04
     12 1711 1009 (N04W45 L=192)   370    115        1 (1675/ 952-1740/1047) -33.7 W41-W48 N01-N06
     13 1332  956 (S05W19 L=167)   451    213        0 (1243/ 908-1426/ 985)  -4.4 W13-W26 S06-S04
     14  251  888 (S23E55 L= 93)   308     94        1 ( 229/ 842- 268/ 932) -78.7 E56-E52 S25-S20
     15 1353  783 (S15W24 L=171)   798    244        0 (1293/ 682-1419/ 873)  72.9 W22-W26 S21-S08
     16 1593  699 (S16W43 L=190)   277     54        0 (1573/ 682-1620/ 727) -11.3 W40-W45 S16-S14
     17 1397  633 (S23W31 L=178)   412     93        1 (1351/ 608-1437/ 660)  -8.1 W27-W34 S23-S21
     18 1808  574 (S17W72 L=219)   970     98        0 (1757/ 551-1852/ 594)  15.9 W65-W81 S19-S15
     19  456  473 (S49E42 L=105)   477     63        2 ( 429/ 445- 480/ 504) -68.2 E45-E39 S51-S46
     20  975  445 (S43W07 L=155)   284     50        0 ( 948/ 420-1001/ 474) -21.8 W04-W09 S44-S41
     21 1612  441 (S30W59 L=206)   449     56        0 (1582/ 422-1637/ 464)   0.0 W54-W61 S31-S28
  

    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