Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  518 1553 (N30E38 L=268)  2237    401        5 ( 407/1383- 594/1694) -38.4 E60-E28 N18-N41
      2  996 1427 (N21E02 L=304)   334    128        1 ( 956/1387-1026/1467) -53.1 E04-W00 N18-N23
      3 1761 1413 (N22W55 L=  1)   694     92        3 (1734/1374-1797/1460) -59.0 W53-W58 N20-N25
      4  211 1374 (N19E64 L=241)  1381    143        3 ( 179/1303- 237/1441) -83.7 E67-E60 N14-N23
      5 1819 1326 (N17W59 L=  5)   617     53        1 (1795/1300-1845/1356)  53.1 W56-W63 N15-N19
      6 1657 1272 (N13W42 L=348)   276     47        0 (1631/1249-1683/1290) -26.6 W40-W44 N11-N13
      7 1631 1134 (N04W39 L=345)   565    109        0 (1608/1082-1665/1183)  63.4 W37-W42 N01-N07
      8 1534 1082 (N01W32 L=338)   292     48        0 (1508/1061-1557/1108)  33.7 W30-W33 N00-N02
      9  112  920 (S08E73 L=232)   793     57        0 (  94/ 887- 132/ 951) -56.3 E77-E69 S09-S06
     10  982  835 (S15E02 L=303)   212     54        0 ( 956/ 821-1014/ 855) -18.4 E04-W00 S15-S13
     11  125  756 (S18E78 L=227)  1706     73        2 ( 104/ 720- 148/ 789) -39.8 E86-E73 S20-S15
     12  339  572 (S31E55 L=250)   710    105        1 ( 321/ 517- 356/ 623)  54.5 E60-E51 S34-S27
     13 1251  443 (S40W19 L=324)   421    121        1 (1190/ 427-1315/ 464)  11.3 W13-W23 S41-S38
     14 1056  228 (S59W05 L=311)  2274    348        2 ( 911/ 185-1223/ 275)   8.1 E12-W23 S64-S54
  

    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