Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  405 1572 (N14E59 L=280)   400     67        2 ( 388/1536- 425/1600) -76.0 E60-E56 N11-N15
      2  187 1180 (S13E64 L=274)   520     76        0 ( 173/1139- 200/1223) -68.2 E65-E61 S15-S10
      3 1695 1124 (N20W40 L= 18)   268     86        0 (1676/1078-1712/1171) -51.3 W38-W42 N17-N22
      4 1853 1146 (N26W55 L= 33)   462     59        0 (1829/1120-1872/1171) -21.8 W52-W57 N24-N27
      5  295 1119 (S15E50 L=288)   299     73        2 ( 283/1091- 309/1149) -56.3 E51-E48 S16-S13
      6 1911 1008 (N20W65 L= 43)   916    246        0 (1870/ 995-1955/1023)  14.0 W59-W71 N18-N21
      7  488  903 (S23E31 L=308)   290     92        1 ( 445/ 876- 525/ 926)  -8.1 E34-E27 S24-S22
      8 1781  783 (N03W57 L= 36)   798    174        0 (1741/ 698-1824/ 863)  84.3 W55-W59 S02-N08
      9 1565  568 (S15W48 L= 26)   549    198        1 (1473/ 530-1643/ 618)  38.7 W41-W52 S18-S10
     10 1687  495 (S15W63 L= 41)   895    169        4 (1640/ 467-1728/ 522)  18.4 W57-W67 S17-S12
     11 1108  395 (S39W26 L=  4)   827    251        2 (1077/ 317-1148/ 489) -37.6 W19-W33 S42-S32
     12 1448  419 (S27W47 L= 25)   351     61        1 (1412/ 398-1485/ 434)  45.0 W45-W49 S28-S24
     13 1274  319 (S38W42 L= 20)   925    135        2 (1229/ 294-1327/ 356)   0.0 W36-W46 S40-S35
  

    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