Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1272 1739 (N41W45 L=324)   448     58        1 (1245/1720-1300/1761) -76.0 W42-W47 N39-N43
      2  677 1690 (N59E07 L=272)   738    142        0 ( 606/1656- 740/1718)   0.0 E15-W01 N57-N60
      3 1119 1585 (N37W24 L=303)   982    234        2 (1025/1540-1232/1618) -14.0 W16-W32 N33-N39
      4  901 1553 (N41W08 L=287)   233     65        0 ( 866/1539- 931/1568) -11.3 W04-W09 N39-N42
      5  489 1092 (N23E32 L=247)   522    128        0 ( 444/1052- 540/1146) -49.4 E34-E28 N19-N26
      6 1499 1029 (S05W28 L=307)   881    237        0 (1473/ 914-1535/1133)  48.0 W23-W32 S10-N00
      7 1916 1092 (S15W67 L=346)   527     49        0 (1890/1073-1935/1108) -23.2 W63-W71 S16-S13
      8  455  999 (N18E36 L=243)   700    212        1 ( 373/ 947- 553/1027)   0.0 E43-E28 N16-N19
      9  452  889 (N12E38 L=241)   445    121        0 ( 412/ 846- 478/ 938) -80.5 E40-E35 N09-N15
     10 1724  699 (S32W40 L=319)  2822    372        4 (1603/ 572-1803/ 847)  32.3 W27-W48 S36-S24
     11  584  543 (S11E40 L=240)   380     70        0 ( 556/ 501- 609/ 580) -90.0 E40-E38 S13-S08
     12  438  478 (S13E54 L=225)   872    177        0 ( 379/ 422- 496/ 530) -60.9 E57-E52 S17-S08
     13  375  418 (S16E66 L=213)  2211    171        6 ( 287/ 366- 434/ 452) -20.6 E78-E59 S19-S12
     14  707  327 (S28E42 L=237)  1589    205        2 ( 630/ 293- 806/ 364) -12.1 E47-E33 S30-S23
     15  972  224 (S43E31 L=248)  2541    369        4 ( 837/ 133-1114/ 324)  11.6 E54-E15 S49-S38
  

    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