Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1295 1808 (N51W53 L=170)  1571    217        1 (1196/1764-1388/1850)  -1.9 W38-W69 N48-N52
      2 1539 1698 (N36W63 L=181)   462     65        0 (1517/1675-1572/1715)  -8.1 W59-W67 N34-N37
      3 1565 1356 (N16W42 L=160)   333     82        1 (1526/1337-1600/1381) -45.0 W40-W44 N13-N17
      4  327 1316 (N34E50 L= 68)   451    110        0 ( 301/1271- 357/1366)  56.3 E51-E47 N31-N37
      5 1685 1309 (N10W50 L=168)   585    144        2 (1629/1286-1752/1342)  -4.4 W45-W58 N08-N11
      6  933 1238 (N21E02 L=116)   210    116        0 ( 908/1185- 969/1281)  38.7 E04-W01 N17-N22
      7 1072 1233 (N18W07 L=124)   262    142        1 (1007/1196-1119/1253)  -7.1 W01-W09 N16-N19
      8 1674 1153 (N02W45 L=162)   301     78        1 (1635/1125-1703/1179)  18.4 W41-W47 N00-N02
      9  668 1084 (N16E21 L= 97)   587    195        3 ( 618/1010- 732/1164) -65.6 E23-E17 N10-N21
     10 1805 1011 (S10W54 L=172)  3342    266        8 (1701/ 929-1881/1104)   7.8 W43-W65 S15-S05
     11 1733 1045 (S06W47 L=165)   324     46        0 (1715/1016-1750/1068)  71.6 W45-W48 S07-S04
     12 1761  846 (S19W48 L=166)   560    104        3 (1740/ 798-1788/ 883)  53.1 W46-W51 S21-S16
     13 1054  835 (S05E01 L=116)   185     78        0 (1029/ 801-1073/ 871) -68.2 E02-W00 S07-S02
     14 1197  751 (S13W06 L=123)   559    111        2 (1158/ 702-1226/ 807)  63.4 W03-W07 S15-S09
     15  857  659 (S13E16 L=101)  1294    364        4 ( 763/ 574- 938/ 779) -68.2 E20-E13 S18-S03
     16  389  539 (S15E55 L= 63)  1656    418        1 ( 324/ 399- 480/ 708)  84.8 E59-E49 S25-S03
     17  941  521 (S23E15 L=103)   378     93        2 ( 920/ 475- 961/ 569)  56.3 E16-E12 S25-S19
     18 1067  432 (S32E09 L=109)   617     80        2 (1019/ 408-1117/ 457)   0.0 E12-E04 S33-S29
     19  648  403 (S27E39 L= 78)   884    103        2 ( 617/ 347- 686/ 441)  69.4 E42-E35 S31-S23
     20 1308  271 (S52W07 L=125)   792    106        4 (1266/ 240-1352/ 304)  24.0 W02-W11 S55-S48
  

    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