Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1157 1484 (N29W22 L=254)   324    116        0 (1104/1464-1225/1497) -20.6 W18-W26 N26-N30
      2 1608 1436 (N12W49 L=281)  2179    536        7 (1489/1365-1790/1488) -13.6 W37-W67 N04-N15
      3  297 1116 (N29E47 L=185)  1380    311        7 ( 263/ 967- 356/1255)  60.6 E50-E40 N20-N37
      4  560 1209 (N29E24 L=208)   219     28        0 ( 537/1194- 584/1226) -18.4 E25-E22 N28-N29
      5 1010 1148 (N14W02 L=234)  1996    488        7 ( 790/1106-1232/1188) -24.6 E10-W14 N07-N18
      6 1603  986 (S12W33 L=265)   478    176        1 (1574/ 907-1639/1043)  45.0 W29-W36 S15-S08
      7 1914  980 (S24W61 L=293)   574     93        0 (1898/ 935-1924/1033)  56.3 W58-W63 S26-S20
      8  610  962 (N13E26 L=206)   201     86        0 ( 589/ 921- 635/ 994)  31.0 E28-E23 N11-N15
      9  272  809 (N11E56 L=176)  1067    182        3 ( 238/ 732- 313/ 892)  73.3 E58-E53 N06-N16
     10  614  767 (N02E31 L=201)   600    118        1 ( 567/ 726- 663/ 820) -71.6 E32-E27 N00-N06
     11 1600  719 (S27W27 L=259)   302     83        1 (1574/ 689-1619/ 765) -90.0 W25-W29 S30-S24
     12  996  547 (S20E15 L=217)  2083    429        6 ( 848/ 366-1085/ 698)  85.4 E20-E12 S32-S07
     13  407  530 (S07E55 L=177)   867    204        4 ( 340/ 499- 471/ 552) -26.6 E61-E50 S10-S05
     14  515  384 (S19E54 L=178)   508    109        0 ( 476/ 337- 553/ 417) -90.0 E55-E51 S22-S15
     15  585  251 (S30E58 L=174)  1494    321        3 ( 551/ 209- 611/ 304)  33.7 E65-E53 S33-S25
  

    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