Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1168 1487 (N29W23 L=254)   426    130        1 (1108/1464-1239/1502) -18.4 W18-W27 N26-N30
      2 1597 1436 (N12W48 L=279)  1918    385        5 (1496/1333-1762/1489) -10.9 W36-W62 N05-N15
      3  309 1135 (N30E46 L=185)  1721    342        4 ( 267/ 972- 404/1258)  55.5 E50-E36 N20-N37
      4  567 1212 (N29E24 L=208)   232     25        0 ( 542/1195- 591/1228)   0.0 E25-E21 N28-N29
      5 1021 1150 (N14W03 L=234)  2112    477        4 ( 790/1112-1274/1188) -24.0 E10-W17 N06-N18
      6 1607  982 (S12W33 L=264)   545    172        0 (1571/ 901-1644/1046)  36.9 W28-W36 S15-S08
      7  607  933 (N12E27 L=204)   361    145        1 ( 577/ 858- 642/1001)  49.4 E30-E23 N08-N15
      8  274  814 (N12E56 L=176)  1021    176        4 ( 238/ 753- 321/ 891) -77.5 E59-E52 N07-N16
      9  623  769 (N02E30 L=201)   649    124        1 ( 572/ 732- 672/ 822) -51.3 E32-E26 N00-N05
     10 1603  720 (S28W28 L=259)   265     70        0 (1577/ 698-1622/ 757)  26.6 W25-W29 S28-S25
     11 1002  552 (S20E14 L=217)  2235    487        4 ( 832/ 367-1091/ 706) -90.0 E19-E11 S32-S06
     12  409  535 (S07E54 L=177)   727    174        2 ( 347/ 515- 468/ 553)  -9.5 E61-E49 S08-S05
     13  522  384 (S19E53 L=178)   611    108        1 ( 484/ 334- 556/ 420)  81.9 E55-E51 S22-S15
     14  588  250 (S30E58 L=173)  1551    302        0 ( 554/ 210- 615/ 305)  31.6 E65-E52 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