Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1796 1482 (N11W72 L=273)   711     56        1 (1770/1464-1829/1497) -24.0 W67-W78 N08-N12
      2  439 1345 (N39E35 L=166)   264     95        0 ( 394/1333- 489/1355) -12.5 E39-E30 N37-N39
      3 1613 1172 (N01W39 L=241)  1206    250        1 (1549/1071-1703/1221)  12.1 W32-W46 S03-N02
      4  382 1173 (N29E41 L=161)   703    165        0 ( 305/1137- 456/1200)   0.0 E48-E34 N27-N30
      5 1840  994 (S16W55 L=256)  3214    293        8 (1777/ 842-1904/1092)  38.2 W47-W65 S24-S11
      6  142 1044 (N24E70 L=132)  1757     83        1 (  92/1013- 180/1074)   3.0 E82-E63 N22-N25
      7  652  991 (N13E23 L=179)   210     78        0 ( 617/ 967- 681/1020)  21.8 E25-E20 N12-N14
      8 1337  907 (S07W15 L=216)   252    119        0 (1293/ 859-1382/ 947)  15.9 W11-W18 S08-S05
      9 1154  833 (S07W03 L=204)   544    196        1 (1120/ 778-1219/ 906) -78.7 W01-W05 S11-S01
     10  555  799 (N04E33 L=168)   240     59        1 ( 524/ 779- 590/ 818)  11.3 E35-E30 N02-N04
     11 1256  715 (S16W06 L=208)  1103    368        4 (1117/ 577-1368/ 797)  20.2 E05-W14 S21-S11
     12 1140  729 (S12E00 L=201)   447    124        2 (1093/ 677-1173/ 783)  45.0 E03-W02 S14-S09
     13  240  728 (N04E63 L=139)   391     51        0 ( 219/ 707- 267/ 755) -53.1 E64-E59 N02-N06
     14  834  706 (S07E18 L=183)   211     53        1 ( 806/ 682- 860/ 731) -18.4 E19-E16 S08-S05
     15  693  666 (S06E28 L=174)   350     23        0 ( 672/ 637- 713/ 694) -90.0 E29-E26 S08-S04
     16  774  659 (S08E23 L=178)   265     43        1 ( 750/ 629- 792/ 681) -71.6 E24-E21 S10-S07
     17  687  561 (S13E32 L=170)  1168    240        5 ( 621/ 509- 770/ 624) -45.0 E36-E26 S16-S08
     18  663  474 (S18E37 L=165)  1255    250        2 ( 558/ 431- 772/ 519) -10.6 E44-E28 S21-S14
     19  643  429 (S20E40 L=161)   275     42        0 ( 620/ 413- 669/ 447) -33.7 E42-E38 S21-S18
     20  577  332 (S26E52 L=149)  2338    304        2 ( 502/ 211- 626/ 441)  43.5 E67-E44 S36-S17
     21  854  351 (S30E30 L=172)   932    243        0 ( 767/ 281- 941/ 425)  17.5 E39-E20 S34-S26
     22  515  317 (S26E60 L=141)  2188    188        7 ( 457/ 253- 566/ 405)  61.7 E68-E54 S31-S18
     23  651  361 (S25E44 L=158)   349     42        3 ( 627/ 341- 671/ 387) -45.0 E45-E41 S26-S23
  

    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