Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  753 1875 (N39E59 L=350)   826     71        0 ( 739/1835- 768/1912) -26.6 E70-E52 N35-N43
      2 1053 1645 (N31E18 L= 31)   329     62        1 (1028/1621-1081/1675) -78.7 E19-E15 N28-N33
      3  348 1567 (N08E65 L=344)  3692    306        5 ( 257/1470- 475/1662)  49.1 E72-E58 N01-N16
      4  943 1259 (N04E11 L= 38)   357    136        0 ( 921/1200- 983/1324) -45.0 E13-E07 N01-N07
      5  144 1181 (S18E73 L=336)   898     67        1 ( 120/1155- 165/1213)  33.7 E77-E68 S19-S15
      6 1660 1073 (N16W37 L= 86)   245     57        1 (1644/1043-1673/1103) -76.0 W35-W37 N13-N17
      7 1314 1053 (N04W15 L= 64)   211     90        0 (1293/1012-1349/1086)  80.5 W14-W16 N00-N06
      8  413  911 (S29E37 L= 13)   819    173        3 ( 351/ 866- 469/ 966)  41.6 E41-E32 S32-S24
      9  918  752 (S24W02 L= 51)   498    212        0 ( 820/ 730-1001/ 771)  20.0 E04-W07 S27-S21
     10 1210  711 (S18W20 L= 69)   911    223        0 (1119/ 668-1313/ 763)  51.3 W16-W24 S22-S12
     11  653  699 (S35E14 L= 35)   307     99        1 ( 598/ 690- 708/ 712)  29.7 E17-E09 S37-S32
     12  759  549 (S41E02 L= 47)  1018    268        0 ( 652/ 492- 878/ 616)  47.1 E09-W04 S47-S33
     13 1120  584 (S28W20 L= 69)   230     64        0 (1094/ 555-1148/ 606)  76.0 W18-W21 S29-S25
     14 1148  236 (S48W47 L= 97)   602     63        0 (1119/ 199-1167/ 266) -14.0 W41-W53 S49-S45
     15 1295  180 (S44W68 L=117)  1029     87        1 (1278/ 136-1324/ 222)  -9.5 W59-W83 S46-S41
  

    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