Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1641 1424 (N38W31 L=167)  1626    274        1 (1541/1325-1729/1486) -11.9 W21-W40 N33-N41
      2 1449 1375 (N28W16 L=152)   748    141        2 (1395/1324-1489/1415) -29.7 W12-W19 N25-N29
      3 1308 1365 (N23W07 L=143)   284    104        0 (1281/1319-1329/1412)  81.9 W06-W07 N19-N26
      4  357 1352 (S02E53 L= 83)  1380    190        2 ( 297/1267- 401/1401) -24.8 E60-E46 S06-N00
      5 1188 1270 (N13W03 L=138)   302    114        0 (1130/1248-1239/1293)  56.3 W00-W05 N10-N16
      6 1725 1098 (N20W43 L=178)   520     82        2 (1702/1052-1748/1134) -53.1 W40-W45 N17-N21
      7 1860 1045 (N22W59 L=194)   764     89        2 (1836/ 999-1880/1100) -51.3 W55-W62 N19-N24
      8 1484  897 (N01W30 L=166)   604    172        2 (1462/ 818-1504/ 988) -71.6 W28-W32 S03-N06
      9 1247  913 (S05W15 L=151)   962    236        3 (1164/ 837-1302/ 960) -10.3 W09-W20 S08-S01
     10 1638  917 (N07W40 L=176)   252     69        0 (1602/ 902-1672/ 928)  21.8 W37-W42 N05-N08
     11 1131  893 (S09W09 L=145)   219     73        0 (1100/ 877-1162/ 916)  63.4 W08-W10 S10-S06
     12  878  735 (S25E01 L=135)   351    156        0 ( 852/ 672- 896/ 811) -69.4 E04-W01 S28-S20
     13 1686  508 (S13W64 L=200)   777     65        3 (1641/ 485-1721/ 534)  26.6 W60-W68 S15-S11
     14 1475  333 (S30W60 L=196)  1875    185        4 (1408/ 289-1554/ 380)   2.4 W50-W75 S31-S27
     15 1140  196 (S51W52 L=187)   451     58        1 (1128/ 166-1156/ 232) -18.4 W46-W58 S53-S48
  

    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