Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  834 1795 (N35E40 L=299)   564     80        0 ( 813/1756- 856/1835) -63.4 E43-E36 N31-N39
      2 1098 1783 (N43E21 L=318)   308     53        0 (1075/1764-1128/1801)  56.3 E22-E19 N40-N44
      3  636 1737 (N26E50 L=289)   848    174        0 ( 552/1700- 721/1767)  31.0 E55-E43 N21-N29
      4 1027 1521 (N21E14 L=326)   694    206        1 ( 942/1468-1113/1546)  10.3 E18-E07 N18-N23
      5  809 1388 (N08E22 L=317)   396     98        0 ( 791/1335- 836/1433) -45.0 E23-E18 N05-N10
      6  632 1362 (N02E32 L=307)   352     94        1 ( 615/1333- 662/1407) -31.0 E33-E28 N00-N04
      7 1729 1317 (N31W39 L= 18)  1385    189        2 (1659/1235-1787/1382) -17.1 W32-W45 N27-N34
      8 1628 1095 (N14W34 L= 13)  1086    330        0 (1545/ 961-1701/1233) -32.9 W25-W42 N08-N19
      9 1452 1139 (N11W21 L=  0)   767    195        1 (1426/1053-1487/1223) -73.3 W19-W24 N06-N16
     10  486 1163 (S12E36 L=303)   421    120        1 ( 434/1145- 550/1188)  20.6 E39-E31 S13-S10
     11  228 1116 (S20E58 L=281)   793    131        1 ( 187/1058- 258/1177)  58.0 E62-E55 S23-S15
     12  514  991 (S21E30 L=309)   273     96        0 ( 502/ 945- 534/1038) -78.7 E31-E28 S23-S18
     13  250 1003 (S26E54 L=285)   333     51        0 ( 228/ 975- 274/1033)  38.7 E56-E51 S27-S23
     14  670  957 (S20E19 L=320)   452    135        1 ( 605/ 938- 726/ 991)  35.5 E23-E15 S21-S16
     15  447  898 (S28E34 L=305)   386    121        0 ( 391/ 879- 507/ 926)  24.0 E38-E29 S30-S25
     16  916  846 (S20E01 L=338)   189     74        0 ( 880/ 824- 950/ 863)   0.0 E03-W01 S20-S18
     17  661  736 (S33E15 L=324)   404     73        0 ( 626/ 707- 700/ 762)  51.3 E17-E12 S35-S30
     18  579  701 (S37E21 L=319)   388     69        0 ( 548/ 678- 618/ 726) -11.3 E23-E17 S38-S35
     19 1363  470 (S28W40 L= 19)  1185    158        3 (1278/ 430-1440/ 519)  53.1 W35-W44 S32-S23
     20 1140  321 (S44W36 L= 16)   471     82        0 (1100/ 304-1182/ 337)  18.4 W32-W39 S45-S42
  

    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