Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1572 1582 (N27W56 L=231)  1515    298        3 (1429/1536-1682/1634) -30.1 W46-W66 N21-N34
      2 1227 1420 (N26W22 L=197)  1149    219        2 (1144/1333-1299/1497) -77.0 W17-W24 N19-N32
      3 1061 1450 (N32W12 L=187)   218    154        0 (1024/1392-1115/1491)  29.1 W07-W16 N28-N33
      4 1413 1435 (N23W35 L=210)   300    123        0 (1355/1418-1464/1453) -20.6 W31-W39 N21-N25
      5 1069 1122 (N12W04 L=180)   302    193        1 (1012/1071-1160/1148)  -5.7 W00-W10 N09-N12
      6 1087 1050 (N07W04 L=180)   189     89        0 (1042/1037-1123/1062) -21.8 W01-W06 N06-N08
      7  146  940 (N13E72 L=103)   767     74        2 ( 122/ 913- 174/ 974) -16.7 E77-E67 N11-N15
      8 1440  889 (S09W23 L=198)   796    264        2 (1408/ 824-1496/ 968)  58.0 W20-W26 S13-S04
      9 1193  870 (S05W07 L=183)   489    163        1 (1116/ 839-1266/ 897) -32.0 W02-W11 S08-S02
     10 1307  750 (S15W12 L=187)   445    141        0 (1269/ 695-1330/ 818)  45.0 W08-W14 S17-S11
     11 1432  616 (S27W19 L=194)  1319    427        1 (1300/ 477-1579/ 744)  27.6 W07-W30 S33-S21
     12 1631  666 (S28W35 L=210)   996    205        0 (1573/ 585-1701/ 740)  32.5 W30-W41 S32-S24
     13  480  522 (S15E48 L=127)   684    139        1 ( 435/ 467- 518/ 558) -66.8 E50-E45 S19-S12
     14  419  462 (S19E58 L=118)   442     94        1 ( 397/ 416- 439/ 496)  56.3 E61-E55 S22-S16
  

    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