Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1107 1706 (N42W30 L=129)   296     66        0 (1078/1685-1141/1724)   0.0 W27-W33 N40-N43
      2 1498 1472 (N16W42 L=141)  1176    308        3 (1367/1446-1632/1527) -40.6 W35-W51 N10-N22
      3  862 1487 (N36W04 L=102)   353    121        1 ( 800/1464- 918/1507) -14.0 E01-W07 N34-N37
      4 1112 1465 (N27W18 L=117)   402    118        1 (1053/1443-1175/1494)  -6.3 W14-W23 N25-N28
      5 1848 1389 (N00W71 L=169)   806    194        1 (1815/1371-1885/1404)  -3.8 W65-W80 N00-N01
      6 1371 1367 (N14W30 L=128)   392     86        1 (1334/1346-1421/1394) -38.7 W27-W32 N12-N16
      7 1856 1147 (S12W59 L=157)  2021    394        4 (1821/ 968-1899/1274)  74.5 W54-W65 S23-S05
      8 1194 1052 (N02W10 L=108)   354     95        3 (1140/1031-1248/1075) -38.7 W07-W12 N00-N04
      9  333  957 (N18E46 L= 53)   881    229        3 ( 276/ 911- 421/1005) -32.5 E49-E38 N14-N21
     10 1661  930 (S18W36 L=134)   925    236        1 (1581/ 842-1718/ 995) -61.7 W31-W39 S24-S11
     11 1230  697 (S19W03 L=102)   713    336        4 (1136/ 616-1386/ 791)   6.3 E04-W14 S21-S15
     12 1305  492 (S34W02 L=100)  1303    315        2 (1240/ 388-1342/ 621)  51.8 E05-W06 S39-S25
     13  766  398 (S25E35 L= 64)  1044    249        1 ( 730/ 312- 821/ 482)  63.4 E38-E29 S31-S19
     14 1481  389 (S49W13 L=112)  2359    417        6 (1376/ 334-1570/ 447) -11.9 W03-W22 S54-S42
     15  506  323 (S23E59 L= 40)  2108    272        2 ( 475/ 257- 549/ 389)  45.0 E65-E53 S28-S18
  

    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