Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  738 1838 (N36E51 L=105)  2287    363        7 ( 694/1773- 775/1911) -40.9 E60-E45 N30-N43
      2  348 1608 (N11E68 L= 88)  1043    236        7 ( 317/1561- 371/1647) -36.9 E73-E62 N08-N14
      3  941 1522 (N20E19 L=137)   779    186        3 ( 893/1469-1007/1564) -18.4 E23-E14 N16-N22
      4  302  778 (S39E45 L=111)   381     84        0 ( 272/ 759- 321/ 804)  31.0 E47-E42 S40-S37
      5 1834  779 (N06W62 L=218)   494    156        0 (1791/ 765-1872/ 790)  16.7 W57-W67 N04-N07
      6 1249  717 (S16W22 L=178)   797    207        0 (1138/ 673-1347/ 774)  50.7 W16-W25 S21-S10
      7 1842  715 (N03W67 L=223)   536    127        0 (1806/ 698-1869/ 730)  20.6 W62-W71 N01-N04
      8 1647  595 (S10W53 L=209)   500     79        1 (1610/ 553-1676/ 631) -78.7 W51-W55 S12-S07
      9 1573  574 (S13W48 L=204)   342     78        0 (1554/ 532-1603/ 606) -80.5 W46-W49 S16-S10
     10 1342  561 (S22W34 L=190)   259     83        0 (1319/ 538-1372/ 593)  -9.5 W30-W36 S22-S20
     11 1447  497 (S22W44 L=199)   367     93        1 (1422/ 466-1480/ 531) -18.4 W40-W47 S22-S19
     12  871  440 (S44W11 L=167)  1007    269        3 ( 738/ 405- 992/ 481)  16.7 W00-W20 S48-S40
     13 1208  350 (S38W37 L=193)   350     70        0 (1177/ 335-1254/ 362)  31.0 W35-W40 S39-S36
     14 1482  284 (S31W61 L=216)   702    229        0 (1439/ 249-1522/ 319)   5.2 W54-W65 S32-S30
  

    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