Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  811 1597 (N47W02 L=162)   393    102        0 ( 771/1557- 851/1635)  20.6 E02-W06 N45-N48
      2  855 1326 (N28E03 L=157)   389    106        0 ( 812/1290- 896/1359)  18.4 E06-W00 N27-N29
      3 1083 1206 (N16W08 L=168)   581    311        0 ( 958/1158-1223/1240) -14.0 W00-W16 N12-N17
      4 1799 1139 (S07W54 L=214)  1204    168        1 (1777/1074-1828/1213)  76.0 W51-W58 S11-S03
      5  549 1142 (N24E27 L=133)   688    151        2 ( 483/1100- 621/1178)   0.0 E32-E21 N22-N25
      6 1707 1073 (S08W44 L=204)  1104    222        2 (1670/1015-1769/1176)  78.7 W40-W49 S11-S01
      7 1865 1106 (S12W60 L=220)   700     94        1 (1833/1075-1894/1136)  14.0 W55-W64 S13-S09
      8  306 1086 (N25E48 L=112)   353     81        0 ( 275/1056- 339/1112)  15.9 E51-E44 N23-N26
      9 1717  883 (S19W41 L=201)  2416    605        2 (1526/ 674-1893/1073)  16.3 W22-W63 S26-S12
     10 1183 1035 (N04W09 L=169)   253     73        0 (1147/1015-1218/1055)   0.0 W06-W11 N03-N04
     11  283  966 (N19E52 L=108)   432    105        0 ( 245/ 925- 314/1003) -45.0 E55-E49 N15-N21
     12 1414  907 (S09W20 L=180)   242     71        1 (1381/ 883-1455/ 928) -11.3 W17-W22 S10-S07
     13  158  880 (N15E69 L= 91)   528     44        0 ( 136/ 863- 182/ 900) -15.9 E72-E65 N13-N16
     14  289  815 (N10E54 L=106)   403    102        0 ( 271/ 766- 314/ 853) -78.7 E55-E52 N06-N11
     15 1343  820 (S12W13 L=173)   368     63        1 (1309/ 792-1372/ 844) -63.4 W11-W15 S14-S09
     16 1259  788 (S12W08 L=168)   315     54        2 (1237/ 760-1282/ 817)  56.3 W06-W09 S13-S10
     17 1322  752 (S15W11 L=171)   199     72        0 (1285/ 739-1358/ 773) -11.3 W08-W13 S16-S14
     18 1202  678 (S17W02 L=162)  1002    294        1 (1088/ 618-1343/ 708)  -7.6 E05-W10 S19-S14
     19  440  499 (S12E53 L=107)  2452    467        5 ( 287/ 379- 526/ 668) -73.3 E59-E46 S20-N00
     20 1357  522 (S31W08 L=168)   430    153        0 (1295/ 475-1420/ 555)  10.3 W02-W13 S32-S30
     21  595  501 (S14E40 L=120)   281     60        1 ( 572/ 477- 613/ 533)  56.3 E42-E38 S15-S12
     22  996  463 (S25E16 L=144)   683    160        2 ( 912/ 419-1046/ 494) -12.5 E21-E12 S29-S23
     23  848  446 (S23E26 L=134)   276     41        0 ( 829/ 420- 867/ 474)  63.4 E27-E24 S25-S21
     24  665  364 (S25E43 L=117)  1094    226        2 ( 632/ 269- 716/ 460)  33.7 E52-E33 S31-S18
     25 1008  327 (S35E21 L=139)   531    138        0 ( 960/ 277-1056/ 380)  28.6 E26-E15 S38-S32
     26 1274  327 (S44E03 L=157)   471     86        1 (1235/ 305-1312/ 354) -60.3 E05-W00 S47-S40
     27  568  296 (S28E57 L=103)   441     91        1 ( 532/ 276- 614/ 326) -51.3 E58-E53 S30-S25
     28  926  147 (S50E44 L=116)   647     64        1 ( 904/ 122- 952/ 178)  56.3 E49-E38 S53-S46
  

    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