Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1048 1554 (N31W05 L=169)   591    139        1 ( 994/1507-1102/1597) -45.0 W01-W08 N27-N33
      2  447 1476 (N29E39 L=125)   860    148        2 ( 392/1436- 517/1525) -21.0 E45-E32 N26-N33
      3  249 1305 (N20E55 L=109)  4509    359       10 ( 184/1137- 324/1450) -87.1 E65-E46 N09-N29
      4  694 1242 (N13E19 L=145)   204     54        0 ( 675/1210- 712/1266)  71.6 E20-E17 N10-N13
      5 1451 1205 (N06W27 L=191)   217     46        0 (1422/1189-1486/1221) -14.0 W25-W29 N05-N07
      6 1227 1099 (N01W12 L=176)   682    303        1 (1108/1064-1368/1126)  -3.8 W05-W20 S01-N03
      7  446  877 (S07E38 L=126)   684    104        1 ( 416/ 822- 487/ 924)  50.2 E40-E34 S10-S04
      8 1045  845 (S13W00 L=164)  1555    493        4 ( 867/ 767-1262/ 902)   9.5 E11-W13 S16-S10
      9  388  772 (S13E44 L=120)   624    207        1 ( 370/ 672- 409/ 868)  85.2 E45-E42 S19-S07
     10  206  786 (S11E62 L=103)   884    100        1 ( 167/ 751- 241/ 830)  15.3 E67-E56 S13-S08
     11 1100  789 (S17W03 L=167)   307     75        1 (1079/ 756-1122/ 830) -90.0 W02-W04 S18-S14
     12 1053  639 (S26E00 L=164)   203     49        0 (1030/ 617-1082/ 661)  45.0 E01-W01 S27-S24
     13  355  473 (S32E60 L=104)  1567    144        3 ( 315/ 398- 412/ 529)  21.8 E74-E52 S36-S28
     14 1650  472 (S40W51 L=215)  1025    132        1 (1580/ 450-1714/ 494)   3.6 W43-W59 S41-S38
  

    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