Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1213 1899 (N56W53 L=349)   758     66        1 (1193/1861-1228/1931)  19.3 W45-W65 N52-N59
      2 1232 1701 (N39W31 L=327)  1346    202        1 (1122/1667-1326/1730) -10.0 W21-W38 N35-N41
      3 1553 1614 (N27W52 L=348)   912    190        1 (1477/1559-1628/1655) -45.0 W46-W55 N22-N30
      4 1523 1526 (N22W44 L=340)  1095    189        2 (1469/1472-1595/1567) -53.1 W39-W48 N17-N25
      5 1453 1457 (N19W36 L=332)   386     47        1 (1432/1428-1475/1493)  76.0 W34-W37 N17-N21
      6  935 1467 (N29W02 L=298)  1730    528        1 ( 690/1436-1178/1490) -15.7 E14-W18 N24-N34
      7 1382 1399 (N17W29 L=325)   604    190        0 (1292/1379-1465/1418) -14.0 W23-W35 N14-N18
      8  598 1377 (N30E22 L=274)   313     94        0 ( 548/1354- 634/1395) -26.6 E25-E19 N27-N30
      9  363 1339 (N31E42 L=254)  1138    237        1 ( 262/1296- 456/1389) -15.9 E54-E33 N27-N35
     10 1013 1351 (N20W05 L=301)   271     83        0 ( 972/1337-1058/1365) -21.8 W02-W07 N19-N21
     11  942 1253 (N16E01 L=295)   957    343        0 ( 811/1176-1088/1330) -45.0 E07-W06 N09-N22
     12 1732 1159 (S03W49 L=344)   512     58        0 (1695/1136-1762/1183)   0.0 W45-W51 S04-S01
     13 1860 1067 (S11W60 L=356)   573    129        0 (1848/1002-1871/1135)  76.0 W58-W62 S14-S06
     14  764  970 (N02E16 L=280)   234     67        1 ( 733/ 954- 796/ 989)   0.0 E18-E13 N01-N03
     15 1599  930 (S14W35 L=330)   231     91        0 (1557/ 905-1638/ 959)   9.5 W31-W37 S15-S13
     16 1211  757 (S18W07 L=302)   230     59        0 (1189/ 731-1240/ 782)  56.3 W05-W08 S19-S16
     17 1254  751 (S19W09 L=305)   211     48        0 (1231/ 728-1283/ 772)  14.0 W07-W11 S20-S17
     18  988  718 (S16E07 L=288)   355    124        0 ( 945/ 684-1050/ 760) -54.5 E09-E04 S19-S12
     19 1043  493 (S31E09 L=287)  1237    230        1 (1006/ 391-1094/ 616)  57.3 E13-E03 S38-S24
  

    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