Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1362 1802 (N49W60 L=329)   875     93        0 (1330/1761-1400/1830)   3.2 W50-W68 N47-N50
      2 1497 1732 (N40W64 L=333)  1532    144        1 (1452/1690-1550/1785)  69.4 W55-W68 N36-N44
      3 1480 1630 (N34W51 L=320)   768    180        0 (1421/1553-1513/1681)  73.3 W47-W53 N29-N39
      4 1435 1603 (N34W45 L=314)   366    104        0 (1406/1562-1470/1644)  71.6 W43-W47 N30-N36
      5  593 1485 (N42E26 L=244)   370    103        0 ( 553/1461- 648/1501) -24.0 E29-E20 N40-N44
      6 1744 1349 (N11W58 L=328)   535     66        0 (1725/1322-1766/1381)  76.0 W56-W60 N09-N13
      7 1089 1220 (N17W07 L=277)   930    375        1 ( 918/1158-1244/1270) -32.9 E02-W15 N11-N22
      8  563 1149 (N21E28 L=241)   239     88        0 ( 550/1104- 586/1186)  53.1 E29-E26 N17-N22
      9 1606 1035 (S03W37 L=307)   795    242        2 (1555/ 936-1653/1135)  42.0 W32-W42 S08-N01
     10  916 1085 (N12E06 L=264)   221    105        0 ( 863/1063- 965/1101) -33.7 E08-E02 N09-N13
     11 1889  969 (S15W66 L=335)  1483    142        1 (1844/ 897-1924/1029)  31.0 W58-W72 S17-S11
     12  496  420 (S25E52 L=218)   490    106        2 ( 481/ 370- 516/ 467)  41.2 E56-E47 S28-S21
     13 1454  357 (S48W23 L=292)   398     31        1 (1436/ 333-1478/ 381)  90.0 W20-W25 S50-S45
     14 1172  225 (S54E07 L=263)   406     66        0 (1148/ 209-1208/ 244)   0.0 E09-E02 S55-S51
  

    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