Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  845 1796 (N35E39 L=299)   614     81        0 ( 822/1753- 872/1841) -53.1 E42-E36 N31-N39
      2  694 1751 (N28E47 L=292)   503     98        1 ( 641/1734- 739/1768)  14.0 E50-E42 N26-N30
      3  584 1719 (N24E53 L=285)   372     34        0 ( 562/1698- 607/1740)  71.6 E54-E50 N22-N25
      4 1044 1516 (N22E12 L=326)   629    209        1 ( 961/1467-1123/1541)   5.2 E17-E06 N18-N23
      5  821 1381 (N08E21 L=317)   391    104        0 ( 803/1328- 849/1427) -45.0 E22-E17 N05-N10
      6  646 1350 (N02E30 L=308)   300     64        0 ( 630/1324- 675/1385) -33.7 E32-E28 N00-N03
      7 1714 1347 (N32W37 L= 16)   762     95        1 (1672/1320-1759/1375)   0.0 W33-W42 N30-N34
      8 1776 1257 (N29W44 L= 23)   482     57        1 (1751/1228-1799/1289) -45.0 W41-W47 N27-N31
      9 1464 1131 (N11W22 L=  0)   653    170        1 (1442/1051-1494/1213) -73.3 W20-W24 N06-N16
     10  497 1158 (S12E35 L=303)   418    121        0 ( 446/1141- 566/1183)  14.0 E38-E30 S13-S10
     11  228 1098 (S21E58 L=281)   704    126        0 ( 183/1051- 266/1145)  36.9 E63-E54 S23-S17
     12 1662 1045 (N12W38 L= 16)   758    211        0 (1613/ 953-1711/1138) -32.5 W32-W43 N08-N15
     13  525  986 (S21E29 L=309)   283    107        0 ( 514/ 937- 549/1034)  90.0 E30-E27 S24-S18
     14  664  946 (S20E19 L=319)   355    116        0 ( 604/ 933- 714/ 963)  23.2 E23-E16 S22-S18
     15  445  890 (S29E34 L=304)   299     75        0 ( 402/ 875- 488/ 906)  23.2 E37-E30 S30-S26
     16  930  839 (S20E00 L=338)   196     66        0 ( 897/ 815- 962/ 855)   0.0 E02-W01 S20-S18
     17  677  733 (S33E14 L=325)   413    101        1 ( 638/ 703- 725/ 762)  56.3 E16-E11 S35-S29
     18  591  694 (S37E19 L=319)   385     82        0 ( 561/ 668- 630/ 720) -11.3 E22-E15 S38-S35
     19 1368  464 (S28W41 L= 19)  1100    166        1 (1280/ 427-1447/ 512)  52.1 W36-W44 S32-S23
     20 1524  302 (S31W68 L= 47)   782    121        0 (1473/ 276-1584/ 332)  54.5 W63-W73 S33-S26
     21 1149  317 (S44W37 L= 16)   529     96        0 (1101/ 300-1195/ 331)  14.0 W32-W40 S45-S41
  

    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