Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  713 1586 (N44E08 L=284)   418     50        0 ( 687/1555- 743/1610)  31.0 E10-E05 N42-N45
      2 1773 1544 (N14W70 L=  2)   760    152        2 (1752/1517-1791/1570)  14.0 W66-W74 N13-N15
      3  845 1445 (N31E01 L=290)   283     76        1 ( 798/1429- 891/1459) -11.3 E04-W01 N29-N32
      4 1301 1260 (N10W21 L=313)   766    191        3 (1212/1231-1404/1291) -24.4 W15-W27 N06-N12
      5  901 1202 (N15E03 L=288)  1287    339        1 ( 727/1161-1061/1236) -14.7 E14-W05 N10-N17
      6  972 1097 (N08E01 L=290)   236    114        0 ( 937/1039-1010/1142)  45.0 E04-W01 N05-N09
      7 1766  996 (S16W47 L=339)   589    131        2 (1745/ 933-1787/1063)  45.0 W44-W50 S18-S12
      8 1631 1008 (S12W37 L=328)   382     93        0 (1613/ 954-1647/1057)  51.3 W34-W38 S14-S09
      9  144  996 (N18E64 L=228)   975    206        1 (  98/ 970- 197/1019) -15.3 E70-E58 N16-N20
     10  425  955 (N11E38 L=253)   608    163        0 ( 364/ 876- 486/1015) -55.0 E42-E35 N05-N15
     11  294  846 (N07E52 L=240)   638     81        2 ( 269/ 807- 325/ 878)  18.4 E54-E48 N05-N09
     12 1222  783 (S15W06 L=298)   626    200        3 (1197/ 705-1257/ 871)  60.9 W04-W10 S19-S10
     13 1236  633 (S25W04 L=296)   987    208        1 (1166/ 533-1303/ 717)  36.0 E02-W09 S29-S20
     14  593  560 (S15E38 L=254)  1811    465        7 ( 475/ 403- 672/ 675) -87.0 E43-E33 S25-S06
     15  425  606 (S09E48 L=243)   375     83        1 ( 402/ 571- 451/ 636)  36.9 E51-E45 S10-S07
     16  314  533 (S11E63 L=229)  1939    267        8 ( 275/ 462- 370/ 598) -90.0 E67-E58 S16-S07
     17  693  559 (S17E31 L=261)   447     92        2 ( 661/ 512- 721/ 593)  80.5 E33-E28 S20-S14
     18  364  532 (S12E57 L=235)   415     76        1 ( 344/ 499- 383/ 563) -90.0 E59-E55 S14-S10
     19 1096  331 (S42E14 L=277)   426     79        1 (1071/ 299-1116/ 371)  71.6 E16-E12 S44-S38
     20 1015  202 (S51E29 L=263)   983    113        1 ( 986/ 165-1047/ 241)  24.4 E34-E23 S54-S47
  

    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