Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1227 1909 (N57W58 L=  7)   664     66        1 (1204/1881-1246/1936)  20.6 W50-W69 N53-N59
      2 1127 1869 (N56W39 L=349)   866     93        2 (1104/1819-1162/1904)  31.6 W32-W45 N51-N59
      3 1081 1643 (N38W18 L=328)  1046    162        3 ( 995/1612-1164/1668) -14.0 W11-W23 N35-N40
      4 1395 1598 (N29W38 L=348)   916    222        1 (1334/1546-1492/1637) -52.1 W33-W43 N23-N32
      5 1396 1508 (N23W34 L=344)   816    274        0 (1297/1470-1514/1551) -14.9 W27-W42 N20-N25
      6 1419 1422 (N17W33 L=342)   451     75        2 (1377/1389-1456/1456)   0.0 W29-W35 N15-N19
      7 1344 1422 (N19W27 L=337)   209     60        0 (1327/1391-1358/1452)  63.4 W26-W29 N16-N20
      8  778 1408 (N28E09 L=301)  1057    389        0 ( 600/1385- 962/1426) -14.0 E21-W03 N24-N31
      9 1190 1336 (N16W16 L=325)   635    247        0 (1073/1315-1301/1362) -12.1 W08-W22 N14-N18
     10  254 1285 (N30E54 L=256)   657    116        0 ( 219/1253- 300/1336) -31.0 E59-E47 N27-N33
     11  779 1288 (N21E10 L=299)   425    212        0 ( 679/1267- 871/1306) -22.6 E16-E04 N18-N23
     12  640 1229 (N20E20 L=290)   303     75        0 ( 606/1194- 673/1257) -45.0 E22-E18 N17-N22
     13  701 1179 (N16E17 L=293)   192     64        0 ( 671/1163- 733/1201)  14.0 E18-E14 N14-N16
     14  836 1131 (N11E09 L=301)   409    152        0 ( 776/1075- 874/1180) -63.4 E12-E07 N06-N14
     15 1848 1015 (S14W58 L=  8)   582    117        2 (1825/ 967-1874/1066) -66.8 W55-W61 S17-S10
     16  539  890 (N02E32 L=278)   417    131        0 ( 484/ 848- 593/ 933)  12.5 E36-E27 N00-N03
     17 1879  809 (S27W63 L= 13)  1711    152        1 (1822/ 760-1927/ 872)  18.4 W55-W71 S29-S24
     18 1129  732 (S18W01 L=311)   359     90        1 (1097/ 706-1169/ 770)  36.9 E01-W03 S18-S15
     19 1012  714 (S17E06 L=304)   226     73        3 ( 989/ 678-1040/ 751)  36.9 E08-E03 S18-S14
     20  772  662 (S16E22 L=288)   463    178        1 ( 709/ 617- 853/ 716) -48.8 E24-E17 S19-S11
     21  866  441 (S31E23 L=287)  1064    240        1 ( 839/ 331- 911/ 556)  47.1 E29-E16 S39-S24
     22 1384  506 (S37W15 L=325)   292    107        0 (1326/ 479-1429/ 535)  14.0 W10-W18 S38-S36
  

    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