Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1414 1555 (N25W37 L=209)  1178    200        3 (1319/1508-1491/1593) -18.4 W30-W43 N21-N27
      2 1625 1530 (N19W52 L=224)   776    182        1 (1574/1494-1680/1557)   4.8 W46-W58 N17-N20
      3 1644 1389 (N11W48 L=220)   267     73        0 (1610/1355-1668/1413) -53.1 W45-W49 N08-N12
      4 1090 1342 (N19W10 L=182)  1296    341        4 ( 913/1258-1217/1409) -40.9 W00-W16 N11-N25
      5  253 1381 (N38E51 L=121)   729    203        1 ( 203/1359- 323/1397)  -4.8 E57-E44 N35-N38
      6  465 1256 (N25E32 L=140)  1297    363        1 ( 337/1176- 593/1349) -38.3 E42-E23 N18-N33
      7 1832 1046 (S13W55 L=227)  1090    218        1 (1787/ 967-1873/1126) -73.3 W52-W59 S17-S07
      8 1706 1086 (S08W45 L=217)   348     74        1 (1670/1070-1733/1102)   0.0 W41-W46 S09-S06
      9  345 1052 (N15E43 L=129)   319     94        0 ( 332/ 995- 361/1097)  80.5 E44-E41 N11-N17
     10 1929 1034 (S16W67 L=239)   981    122        3 (1908/ 995-1950/1092) -90.0 W63-W70 S17-S11
     11  169 1034 (N17E60 L=112)   881    113        0 ( 145/ 984- 192/1086) -66.8 E62-E58 N13-N20
     12  424 1053 (N14E37 L=135)   229     64        0 ( 394/1028- 446/1068) -36.9 E39-E35 N12-N15
     13 1729  989 (S14W45 L=217)   264     94        0 (1701/ 944-1743/1035)  45.0 W41-W46 S16-S11
     14  619  794 (S04E28 L=144)   736    296        0 ( 590/ 660- 650/ 948)  61.9 E33-E24 S12-N04
     15  987  842 (S08E05 L=167)   271    138        0 ( 902/ 815-1047/ 860) -26.6 E10-E02 S10-S06
     16  409  707 (S06E46 L=126)   504    146        1 ( 354/ 657- 454/ 743) -50.2 E50-E43 S09-S03
     17 1547  620 (S33W27 L=199)  1179    236        2 (1433/ 548-1616/ 713)  21.8 W18-W33 S37-S28
     18  214  675 (S05E67 L=105)   668    113        2 ( 188/ 645- 238/ 710) -63.4 E70-E63 S06-S02
     19  994  594 (S23E10 L=162)   375    110        1 ( 943/ 565-1038/ 645)  20.6 E14-E06 S24-S20
     20 1059  497 (S31E09 L=163)  1179    329        0 ( 942/ 388-1194/ 621)  25.5 E19-W02 S36-S25
     21  805  358 (S35E31 L=141)   289    115        0 ( 754/ 330- 858/ 383)   6.3 E35-E26 S36-S33
  

    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