Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  468 1611 (N58E37 L=331)   344     41        0 ( 450/1587- 491/1631)  45.0 E39-E33 N56-N59
      2  364 1583 (N58E54 L=314)   925    104        2 ( 303/1563- 424/1597)  -2.0 E71-E42 N56-N59
      3 1615 1441 (N15W50 L= 58)   608    163        0 (1587/1379-1649/1508)  49.4 W47-W56 N10-N17
      4 1325 1337 (N17W26 L= 34)   836    171        0 (1235/1306-1412/1363) -35.0 W20-W30 N13-N20
      5  641 1334 (N34E18 L=350)   286    102        1 ( 597/1322- 695/1348) -14.0 E21-E13 N32-N35
      6 1041 1295 (N22W08 L= 16)   758    263        0 ( 911/1271-1154/1317) -26.6 W00-W14 N18-N26
      7  188 1220 (N35E64 L=304)  1726    146        1 ( 120/1176- 252/1250)  -4.2 E81-E54 N31-N36
      8  922 1008 (N09E06 L=  2)   749    242        1 ( 853/ 911- 971/1106) -90.0 E08-E03 N02-N15
      9 1839  972 (S18W55 L= 63)   944    125        2 (1803/ 937-1900/1010)  -8.7 W50-W63 S19-S14
     10 1337  813 (S12W13 L= 21)   278     69        0 (1297/ 788-1370/ 834) -53.1 W11-W14 S14-S10
     11  809  572 (S14E24 L=344)   786    156        1 ( 776/ 492- 850/ 641)  52.1 E26-E19 S19-S10
     12  269  581 (S05E66 L=302)   686     47        1 ( 254/ 549- 292/ 616)  51.3 E70-E63 S07-S02
     13 1731  547 (S43W43 L= 52)   506     64        1 (1704/ 529-1763/ 567)   0.0 W40-W48 S44-S40
     14 1600  449 (S46W29 L= 37)   372     40        0 (1577/ 435-1628/ 467) -33.7 W26-W32 S47-S43
     15  635  270 (S32E53 L=315)  1490    135        2 ( 585/ 214- 675/ 321)  18.4 E66-E45 S35-S28
  

    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