Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  672 1783 (N35E50 L= 94)   991    213        0 ( 630/1712- 721/1839) -73.3 E55-E47 N29-N40
      2 1066 1725 (N42E19 L=125)  1020    204        2 (1034/1661-1094/1799) -42.3 E25-E14 N37-N47
      3  714 1600 (N23E36 L=109)   294     50        0 ( 692/1576- 731/1631) -76.0 E36-E34 N21-N25
      4 1541 1613 (N49W24 L=168)   390     76        0 (1515/1597-1572/1628)  33.7 W21-W27 N47-N51
      5  479 1544 (N15E50 L= 94)  1729    376        6 ( 388/1458- 540/1591) -13.2 E59-E42 N10-N18
      6  631 1494 (N15E37 L=108)   459     90        0 ( 611/1449- 660/1531) -78.7 E38-E34 N12-N17
      7  792 1434 (N15E24 L=120)   368    128        0 ( 719/1401- 828/1478)  60.3 E27-E22 N11-N18
      8  905 1377 (N14E16 L=129)   484    186        0 ( 862/1327- 952/1407)  36.9 E18-E12 N11-N16
      9  758 1311 (N07E22 L=122)   296     55        0 ( 740/1274- 775/1346) -68.2 E23-E20 N04-N09
     10 1015 1286 (N11E07 L=138)   201     17        0 ( 999/1265-1032/1308) -33.7 E08-E05 N10-N12
     11 1142 1045 (N01W06 L=151)   282     45        1 (1114/1018-1164/1071) -18.4 W04-W07 N00-N02
     12  949  822 (S17W01 L=145)   254     54        0 ( 918/ 791- 973/ 845) -33.7 E01-W02 S18-S15
     13  379  710 (S38E38 L=106)   312     75        0 ( 353/ 688- 409/ 734)  38.7 E40-E35 S39-S35
     14 1739  516 (S13W68 L=212)  1579    191        0 (1672/ 460-1812/ 588)  47.7 W63-W73 S18-S07
     15 1147  362 (S40W30 L=174)  1096    269        1 (1035/ 335-1286/ 392)  14.7 W20-W40 S42-S36
  

    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