Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  927 1780 (N43E22 L=166)   376     56        0 ( 905/1757- 947/1808) -45.0 E24-E19 N41-N45
      2  509 1717 (N33E54 L=134)   496     50        1 ( 483/1692- 526/1742)  71.6 E57-E50 N31-N35
      3  412 1526 (N18E51 L=137)  1177    162        4 ( 365/1461- 448/1604) -84.3 E55-E47 N13-N23
      4 1248 1465 (N24W08 L=196)   435    104        2 (1215/1429-1273/1509)  90.0 W06-W10 N21-N27
      5  921 1430 (N17E12 L=176)   197    104        0 ( 893/1385- 947/1470) -45.0 E14-E09 N14-N19
      6  432 1394 (N10E44 L=144)   541    118        1 ( 411/1338- 464/1446) -74.1 E46-E40 N06-N13
      7 1293 1335 (N16W12 L=200)   201     43        1 (1270/1312-1310/1363)  90.0 W10-W13 N14-N18
      8 1871 1251 (N22W62 L=250)  2718    281        3 (1767/1133-1926/1337) -24.2 W49-W70 N16-N26
      9  645 1226 (N02E26 L=162)   439    161        2 ( 580/1191- 706/1259)  -6.3 E30-E21 N00-N03
     10 1103 1168 (N04W03 L=191)   296    118        1 (1065/1113-1135/1210) -45.0 W00-W05 N00-N05
     11  753 1042 (S08E17 L=172)   261     91        1 ( 725/ 997- 775/1080)  80.5 E17-E15 S11-S05
     12 1533  871 (S07W34 L=222)   416     66        1 (1503/ 849-1567/ 905) -26.6 W32-W36 S08-S05
     13  831  781 (S23E09 L=179)   505    154        2 ( 776/ 760- 907/ 811)  14.0 E12-E04 S24-S20
     14 1443  711 (S18W32 L=220)   623    280        2 (1311/ 662-1561/ 744)  26.6 W23-W39 S23-S14
  

    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