Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  652 1718 (N24E48 L=240)   607     86        1 ( 613/1688- 695/1739)   0.0 E51-E42 N22-N25
      2 1224 1672 (N38E08 L=279)   600    171        0 (1151/1626-1299/1710)  -4.4 E14-E01 N36-N39
      3 1452 1564 (N39W11 L=299)   388     86        1 (1418/1535-1492/1588)   0.0 W08-W14 N36-N39
      4 1575 1545 (N42W22 L=309)   348     89        0 (1548/1509-1599/1583) -38.7 W18-W24 N40-N44
      5  343 1503 (N04E60 L=228)   894    136        3 ( 291/1438- 382/1543) -21.0 E68-E54 N00-N07
      6  769 1427 (N09E26 L=262)   417    108        1 ( 734/1368- 801/1463) -29.7 E28-E21 N06-N10
      7 1590 1258 (N23W27 L=315)   328     95        0 (1547/1229-1633/1285)   0.0 W23-W31 N22-N23
      8 1825 1139 (N25W50 L=338)   505    135        0 (1779/1087-1856/1165)  -8.1 W45-W54 N22-N26
      9 1803  991 (N15W51 L=338)   431    103        3 (1764/ 951-1835/1036)   0.0 W46-W54 N13-N17
     10 1292 1001 (S00W15 L=303)   212     90        0 (1247/ 987-1324/1029)  36.9 W12-W16 S02-N02
     11  724  993 (S16E16 L=271)   261     46        0 ( 694/ 973- 754/1010)  45.0 E17-E14 S17-S14
     12  838  968 (S14E09 L=279)   286     44        1 ( 815/ 941- 867/ 993)  76.0 E10-E06 S16-S12
     13 1883  854 (N11W64 L=352)  3898    243        9 (1833/ 774-1946/ 965) -51.3 W56-W79 N06-N16
     14 1195  827 (S12W15 L=302)   466    183        0 (1135/ 769-1243/ 900) -16.7 W09-W19 S14-S09
     15 1105  734 (S20W13 L=300)   349    136        0 (1035/ 717-1171/ 749)  26.6 W08-W16 S21-S17
     16 1829  719 (N02W64 L=351)   764     76        1 (1783/ 699-1869/ 739)  20.0 W58-W69 N00-N04
     17  267  663 (S48E54 L=234)   640     95        2 ( 225/ 646- 323/ 686)  12.5 E62-E44 S49-S45
     18  923  651 (S30W05 L=293)   237     73        0 ( 900/ 621- 961/ 674)  63.4 W04-W06 S31-S27
     19 1577  535 (S16W51 L=338)   783    173        1 (1508/ 513-1664/ 559)  26.6 W45-W57 S18-S11
     20  698  474 (S48E04 L=283)   348     44        1 ( 675/ 448- 726/ 499) -26.6 E06-E01 S49-S46
     21  914  412 (S45W15 L=302)   872    277        2 ( 789/ 359-1027/ 465)   7.8 W03-W25 S47-S42
     22 1386  359 (S31W49 L=337)   311     46        2 (1362/ 340-1409/ 376)  56.3 W47-W51 S32-S29
     23 1493  306 (S30W63 L=351)  1095    149        1 (1433/ 275-1555/ 351)   5.7 W54-W74 S31-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