Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  832 1823 (N52E38 L=223)   485     79        1 ( 800/1805- 871/1836)  53.1 E40-E34 N49-N53
      2  863 1550 (N31E20 L=241)   275     79        1 ( 820/1531- 893/1576)   0.0 E23-E17 N29-N32
      3  649 1466 (N22E32 L=229)   720    124        1 ( 623/1401- 686/1522)  90.0 E33-E30 N17-N26
      4  419 1473 (N19E50 L=211)   516    104        1 ( 395/1431- 438/1509) -33.7 E53-E47 N16-N20
      5  945 1383 (N21E10 L=251)   332    102        0 ( 902/1337- 967/1416) -38.7 E13-E08 N18-N22
      6  537 1314 (N11E36 L=225)   869    175        2 ( 499/1249- 581/1391) -45.0 E40-E31 N07-N15
      7 1032 1227 (N12E02 L=259)   619    198        2 ( 922/1196-1117/1265)   0.0 E09-W02 N11-N13
      8 1131  977 (S01W07 L=268)  1195    297        1 (1063/ 852-1226/1118) -60.3 W02-W14 S07-N07
      9  255 1016 (S11E54 L=207)   805    179        0 ( 238/ 926- 271/1106) -79.7 E56-E51 S16-S05
     10  603  932 (S11E25 L=236)   532    174        1 ( 537/ 911- 703/ 955)  15.3 E29-E18 S13-S08
     11  883  885 (S10E07 L=254)   516    184        1 ( 831/ 802- 957/ 933)  71.6 E09-E02 S15-S06
     12  210  880 (S20E58 L=203)   423    126        2 ( 178/ 862- 246/ 905)  -7.1 E62-E54 S21-S18
     13 1220  738 (S14W16 L=277)   600    141        2 (1179/ 661-1272/ 795)  83.7 W14-W18 S19-S10
     14 1028  542 (S30W08 L=269)   430    118        0 ( 976/ 525-1089/ 570)  29.7 W04-W11 S31-S27
  

    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