Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  618 1830 (N33E63 L=264)   793     52        0 ( 594/1808- 640/1857) -53.1 E67-E58 N30-N35
      2  964 1747 (N35E28 L=299)   383     57        0 ( 947/1714- 982/1780) -56.3 E29-E25 N32-N38
      3  847 1703 (N28E33 L=294)   455    152        0 ( 772/1657- 900/1726)   0.0 E38-E27 N26-N29
      4 1229 1449 (N23W00 L=327)   291    105        0 (1183/1421-1271/1467)   0.0 E02-W03 N21-N23
      5 1117 1344 (N13E03 L=324)   254    110        0 (1093/1297-1142/1399) -50.2 E05-W00 N10-N16
      6  834 1244 (N00E16 L=311)   432    128        1 ( 794/1189- 880/1299) -23.2 E19-E12 S02-N02
      7 1750 1033 (N15W45 L= 12)  1268    344        1 (1654/ 894-1813/1162) -23.2 W34-W55 N08-N19
      8 1621 1080 (N13W34 L=  1)   683    121        0 (1600/1018-1642/1140) -74.1 W32-W35 N09-N16
      9  655 1098 (S12E23 L=304)   351    129        0 ( 594/1073- 717/1120)  12.5 E27-E18 S13-S11
     10  832  873 (S20E07 L=320)   331    101        1 ( 783/ 848- 887/ 886)  23.2 E10-E03 S22-S18
     11  601  847 (S28E21 L=306)   574    184        0 ( 517/ 829- 665/ 884)  26.6 E27-E17 S30-S24
     12  774  654 (S35E05 L=322)   994    238        2 ( 664/ 620- 877/ 695)  33.7 E12-W00 S38-S30
     13 1436  380 (S30W52 L= 19)  1831    326        3 (1289/ 283-1546/ 450)  76.8 W47-W57 S40-S23
     14 1240  260 (S44W50 L= 17)   517     50        1 (1212/ 241-1269/ 289)   0.0 W45-W54 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