Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  736 1642 (N36E23 L=258)  1880    407        1 ( 571/1546- 889/1724) -20.1 E40-E10 N29-N43
      2 1548 1559 (N32W39 L=321)   572     97        0 (1500/1522-1587/1592) -39.8 W35-W42 N29-N34
      3  541 1366 (N17E33 L=249)   284     59        1 ( 512/1341- 559/1396)  33.7 E34-E31 N15-N18
      4 1881 1090 (N04W64 L=346)   714     75        0 (1858/1050-1900/1122)  63.4 W60-W66 N01-N05
      5 1807 1036 (S00W55 L=337)   438     62        1 (1788/1000-1830/1062)  45.0 W53-W57 S02-N01
      6 1692  820 (S14W47 L=328)   851    245        1 (1669/ 703-1717/ 921) -69.0 W43-W49 S20-S07
      7 1512  818 (S15W32 L=314)   533    116        0 (1486/ 756-1530/ 879) -66.8 W29-W34 S18-S11
      8  223  761 (S19E62 L=220)  1138    184        5 ( 185/ 693- 251/ 855)  45.0 E69-E57 S23-S13
      9  294  813 (S16E52 L=230)   994      0       -1 ( 244/ 780- 327/ 851)  11.3 E58-E48 S18-S14
     10  273  707 (S23E58 L=224)   739    113        1 ( 246/ 648- 301/ 757)  45.0 E61-E54 S26-S19
     11 1691  644 (S25W51 L=333)   512    122        1 (1632/ 599-1726/ 678)  39.8 W47-W55 S27-S22
     12  609  601 (S30E29 L=253)   696    126        0 ( 571/ 542- 640/ 663)  63.4 E33-E26 S34-S26
     13  396  574 (S32E49 L=232)   946    170        2 ( 328/ 515- 465/ 607)  16.7 E61-E41 S35-S29
     14 1316  227 (S59W39 L=321)   727     90        1 (1279/ 198-1347/ 257) -13.0 W31-W45 S62-S55
     15 1171  202 (S62W23 L=304)  1126    130        2 (1123/ 165-1236/ 234)   4.1 W15-W30 S67-S58
  

    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