Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  954 1700 (N51E02 L= 54)   437     80        1 ( 933/1662- 981/1729)  51.3 E04-W00 N48-N54
      2 1101 1594 (N42W09 L= 66)   349     49        1 (1078/1564-1127/1621) -76.0 W07-W11 N39-N43
      3 1189 1530 (N36W15 L= 72)   379    119        2 (1134/1503-1248/1556) -20.6 W11-W19 N34-N38
      4  296 1435 (N32E62 L=355)  1269    158        2 ( 282/1349- 324/1513) -35.5 E70-E56 N26-N36
      5 1391 1484 (N32W30 L= 87)   466    102        1 (1338/1471-1448/1498)   0.0 W25-W34 N30-N32
      6 1825 1345 (N18W68 L=125)  1694    192        4 (1804/1253-1854/1430)  54.0 W63-W75 N12-N23
      7 1622 1364 (N22W46 L=103)   276     90        0 (1586/1332-1651/1400) -51.3 W43-W47 N19-N24
      8  972 1377 (N27E02 L= 55)   339     99        0 ( 924/1343-1018/1397)  18.4 E05-W01 N24-N28
      9  309 1182 (N16E52 L=  5)   317     98        0 ( 284/1142- 340/1222) -39.8 E54-E48 N13-N18
     10  626 1071 (N09E25 L= 32)   311     79        4 ( 609/1028- 642/1116) -78.7 E26-E24 N06-N11
     11 1677  780 (S15W45 L=102)  1899    324        1 (1584/ 639-1739/ 906)  60.6 W38-W49 S23-S07
     12  975  768 (S11E04 L= 53)   234     84        0 ( 930/ 737-1010/ 792)  18.4 E07-E01 S12-S09
     13 1311  683 (S18W17 L= 74)   273     57        0 (1288/ 658-1333/ 710)  90.0 W15-W18 S20-S16
     14 1045  538 (S27E01 L= 56)   237     48        0 (1018/ 523-1072/ 556) -18.4 E02-W01 S28-S25
     15 1175  164 (S65W13 L= 70)   762     68        0 (1142/ 144-1207/ 186) -21.8 W07-W18 S68-S60
  

    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