Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1026 1734 (N36E24 L=336)   711    147        1 (1006/1656-1052/1786) -57.5 E28-E20 N29-N40
      2  554 1708 (N21E55 L=305)   645     67        1 ( 527/1678- 586/1742) -78.7 E57-E52 N19-N24
      3 1518 1593 (N44W16 L= 16)  1548    276        8 (1416/1488-1622/1690) -18.4 W05-W26 N39-N48
      4  873 1642 (N25E28 L=332)   690    114        2 ( 817/1618- 935/1681)  45.0 E31-E24 N21-N28
      5 1327 1527 (N31W03 L=  4)   557    126        1 (1290/1463-1346/1580) -54.5 W00-W05 N27-N34
      6  980 1505 (N19E16 L=344)   232    110        1 ( 955/1484-1029/1543) -21.8 E18-E13 N17-N21
      7 1710 1408 (N38W36 L= 37)   345     76        0 (1684/1380-1738/1434) -18.4 W33-W39 N36-N38
      8 1595 1322 (N27W27 L= 27)   875    332        1 (1484/1194-1675/1418) -21.3 W16-W35 N21-N30
      9  278 1108 (S20E52 L=308)   679    159        2 ( 233/1049- 299/1179) -45.0 E58-E49 S23-S16
     10 1792 1076 (N20W48 L= 48)   565    156        0 (1751/1005-1818/1140) -29.1 W42-W52 N16-N21
     11  415  957 (S26E37 L=323)   446    142        0 ( 347/ 911- 466/ 997)  41.6 E42-E33 S30-S22
     12  933  762 (S24W02 L=  2)   555    248        1 ( 826/ 691-1032/ 797)  45.0 E02-W07 S30-S19
     13  301  750 (S42E48 L=312)   385    117        0 ( 254/ 718- 358/ 774)  18.4 E55-E40 S44-S39
     14  671  649 (S38E12 L=349)   237    112        0 ( 646/ 605- 684/ 713) -82.9 E12-E10 S41-S33
     15 1477  328 (S30W61 L= 61)   547     76        0 (1450/ 292-1506/ 364) -59.0 W57-W63 S32-S27
  

    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