Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1374 1693 (N34W47 L= 49)   503    111        0 (1350/1657-1398/1734)  59.0 W44-W49 N32-N37
      2 1505 1566 (N23W48 L= 50)   301     51        1 (1470/1543-1533/1584) -36.9 W46-W50 N21-N25
      3 1594 1346 (N09W44 L= 46)  1567    385        1 (1479/1170-1657/1428)  60.3 W36-W49 N00-N15
      4 1168 1410 (N25W20 L= 21)   305     49        1 (1138/1392-1208/1424) -21.8 W17-W22 N23-N26
      5  487 1302 (N36E29 L=332)   351    104        1 ( 441/1285- 541/1321)  -6.3 E33-E24 N35-N37
      6  205  977 (N22E58 L=303)  1160    236        2 ( 151/ 894- 262/1072) -57.5 E62-E54 N16-N27
      7  783  970 (N10E15 L=346)   212    109        0 ( 736/ 941- 805/1016)  31.0 E18-E13 N08-N12
      8  524  924 (N13E33 L=329)   581    245        1 ( 435/ 851- 636/ 985) -47.5 E37-E26 N06-N18
      9 1390  833 (S13W16 L= 18)   634    167        1 (1332/ 781-1421/ 910)  32.0 W11-W19 S15-S08
     10  235  747 (N07E63 L=299)   505    119        1 ( 208/ 721- 251/ 793)  33.7 E67-E59 N05-N10
     11  259  694 (N04E62 L=299)   412     91        1 ( 231/ 673- 287/ 710)  -9.5 E65-E58 N02-N05
     12  725  557 (S13E30 L=331)   347     65        1 ( 687/ 538- 763/ 576) -36.9 E32-E27 S14-S10
     13  427  424 (S15E59 L=302)  2339    419        4 ( 368/ 296- 471/ 540)  67.2 E67-E54 S25-S06
     14  763  430 (S22E33 L=329)   573    115        1 ( 710/ 397- 818/ 458)   0.0 E37-E28 S22-S19
     15  677  314 (S28E45 L=316)   422    128        1 ( 657/ 278- 706/ 345)  26.6 E49-E41 S30-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