Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1633 1592 (N19W59 L=174)  2124    311        2 (1585/1466-1714/1669)  17.1 W50-W77 N12-N22
      2 1190 1608 (N33W28 L=143)   364     91        0 (1144/1587-1232/1624) -18.4 W24-W30 N30-N34
      3 1178 1500 (N27W23 L=137)   716    190        1 (1111/1426-1251/1540)   9.5 W16-W28 N23-N27
      4 1224 1383 (N19W21 L=136)   284    130        0 (1163/1348-1276/1410) -56.3 W18-W22 N15-N21
      5  945 1316 (N22W03 L=117)   349    139        4 ( 915/1268- 980/1387) -90.0 W01-W03 N18-N26
      6  719 1195 (N21E14 L=101)  1210    345        4 ( 641/1103- 866/1290) -58.0 E17-E06 N12-N28
      7 1890 1214 (S09W66 L=181)   948    102        2 (1872/1169-1919/1264) -80.5 W62-W69 S11-S05
      8 1609 1104 (S06W36 L=151)  1806    395        5 (1546/ 910-1665/1251)  66.0 W29-W40 S16-N02
      9  434 1177 (N26E34 L= 81)  1809    473        3 ( 254/1079- 620/1248) -27.3 E50-E21 N16-N32
     10 1854 1099 (S14W58 L=172)  1168    169        3 (1823/1044-1899/1166) -82.9 W54-W63 S17-S09
     11 1915 1057 (S18W65 L=180)  2151    188        7 (1857/ 976-1971/1127)  21.8 W56-W78 S21-S14
     12 1789 1068 (S13W50 L=165)   366     57        1 (1763/1044-1811/1096)  21.8 W47-W52 S14-S12
     13  337 1034 (N20E44 L= 71)   349    100        1 ( 283/1014- 378/1057) -26.6 E48-E40 N18-N22
     14  724  770 (S03E23 L= 92)  1139    478        2 ( 588/ 635- 905/ 926) -60.3 E28-E15 S14-N08
     15 1668  778 (S27W35 L=150)  2395    480        5 (1445/ 637-1833/ 882)   3.2 W15-W51 S29-S23
     16 1417  787 (S19W17 L=132)  1133    260        4 (1304/ 724-1527/ 860)   0.0 W08-W25 S20-S17
     17  297  550 (S07E63 L= 51)  4895    290       12 ( 227/ 425- 363/ 690)  55.5 E72-E54 S15-N01
     18  403  556 (S08E53 L= 62)   464     70        1 ( 388/ 519- 424/ 593)  63.4 E54-E50 S10-S06
     19  424  500 (S12E54 L= 61)   504    124        4 ( 386/ 459- 456/ 555)  29.1 E58-E48 S14-S09
     20  519  282 (S28E64 L= 51)   642    131        1 ( 484/ 259- 571/ 314)   0.0 E69-E55 S29-S25
  

    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