Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1716 1419 (N07W56 L=223)  1133    100        4 (1667/1380-1757/1458)   0.0 W50-W61 N04-N09
      2 1101 1343 (N20W13 L=180)   923    363        1 ( 942/1260-1234/1404)   0.0 W01-W22 N17-N21
      3 1809 1237 (S05W57 L=224)   555    105        0 (1764/1208-1849/1266) -40.6 W53-W60 S08-S02
      4  452 1151 (N25E33 L=134)   710    159        1 ( 413/1076- 512/1192)  29.1 E36-E27 N21-N27
      5 1433 1142 (N00W26 L=193)   570    131        0 (1398/1079-1466/1191) -90.0 W24-W27 S03-N03
      6 1547 1134 (S03W33 L=200)   236     65        0 (1533/1101-1561/1173)  45.0 W31-W34 S04-S01
      7 1842 1098 (S14W56 L=223)   373     63        1 (1823/1067-1856/1130)  76.0 W53-W58 S15-S11
      8 1610 1061 (S09W35 L=202)   455     96        1 (1569/1032-1657/1092)  -8.1 W32-W39 S10-S06
      9 1890  889 (S28W59 L=226)  4195    415        5 (1795/ 735-1943/1088)  43.4 W46-W69 S34-S17
     10 1765 1069 (S13W48 L=215)   307     34        0 (1736/1052-1789/1084) -26.6 W45-W49 S14-S11
     11  278  997 (N20E50 L=117)   536    133        1 ( 257/ 930- 296/1054)  74.1 E51-E48 N15-N23
     12 1756 1000 (S17W45 L=212)   478    105        1 (1716/ 951-1780/1038) -56.3 W42-W47 S19-S13
     13  150  939 (N19E66 L=101)  1080    130        2 ( 109/ 902- 207/ 986) -28.6 E72-E58 N15-N22
     14  320  891 (N13E48 L=119)  1068    220        1 ( 278/ 832- 367/ 980)  37.9 E52-E42 N09-N17
     15 1574  939 (S15W30 L=197)   616    135        1 (1531/ 879-1629/ 973)  12.5 W25-W34 S16-S13
     16 1319  923 (S09W14 L=181)   249     82        0 (1294/ 883-1349/ 965) -80.5 W12-W14 S11-S05
     17  815  824 (S02E16 L=150)  1074    232        1 ( 732/ 733- 889/ 903) -70.0 E19-E13 S07-N04
     18 1602  867 (S20W30 L=197)   408     50        1 (1579/ 830-1630/ 898)  45.0 W28-W32 S21-S17
     19 1261  705 (S19W05 L=172)   260     51        2 (1236/ 676-1288/ 734)  56.3 W03-W07 S20-S17
     20  690  506 (S17E34 L=133)  1678    424        3 ( 565/ 385- 830/ 645)  19.0 E49-E20 S21-S11
     21  534  617 (S07E40 L=127)   284     52        0 ( 498/ 602- 562/ 637)   0.0 E42-E37 S07-S05
     22  385  481 (S12E59 L=108)  2792    396        6 ( 295/ 348- 493/ 626) -90.0 E67-E53 S22-S01
     23  997  490 (S25E16 L=151)  2153    574        3 ( 744/ 336-1216/ 603)   6.0 E38-W00 S29-S22
  

    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