Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1104 1473 (N22E01 L=259)   405     86        1 (1075/1438-1144/1502)  76.0 E02-W01 N20-N24
      2 1178 1464 (N23W04 L=264)   267     67        1 (1142/1436-1207/1494)  53.1 W02-W06 N20-N24
      3  201 1364 (N08E66 L=194)  2094    308        5 ( 133/1321- 249/1407)  10.6 E76-E59 N05-N10
      4 1360 1238 (N11W18 L=278)  1300    288        3 (1282/1129-1414/1336) -61.4 W12-W21 N04-N16
      5  232 1185 (S03E57 L=203)   432    112        0 ( 208/1142- 262/1225) -45.0 E60-E53 S05-N00
      6  144 1080 (S09E66 L=194)   682     98        0 ( 125/1038- 167/1120)  59.0 E68-E63 S11-S06
      7 1828 1081 (N09W54 L=314)   347     81        1 (1813/1044-1848/1114)  90.0 W53-W56 N07-N11
      8 1869  985 (N05W60 L=320)   936    223        3 (1827/ 935-1924/1024)   9.5 W55-W67 N02-N07
      9  509  801 (S24E31 L=229)   365    158        0 ( 494/ 713- 528/ 872) -84.3 E32-E30 S29-S19
     10  675  844 (S20E20 L=240)   196     44        1 ( 654/ 822- 698/ 871) -56.3 E21-E18 S21-S18
     11 1474  811 (S12W31 L=291)   431    119        0 (1418/ 785-1528/ 834)  23.2 W27-W34 S14-S10
     12 1321  764 (S17W22 L=282)   216     53        1 (1290/ 740-1352/ 784) -14.0 W19-W23 S18-S16
     13  866  200 (S67W01 L=261)   688     82        1 ( 838/ 165- 889/ 228) -54.5 E03-W05 S70-S63
  

    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