Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1075 1820 (N52W42 L=279)   436     49        1 (1057/1788-1098/1849)  35.5 W38-W46 N49-N54
      2 1371 1813 (N40W63 L=300)   564     54        1 (1343/1782-1388/1844)  15.3 W59-W70 N37-N40
      3  989 1797 (N54W33 L=270)   330     22        0 ( 972/1776-1009/1818)  15.9 W29-W36 N52-N55
      4  903 1748 (N54W21 L=258)   287     41        1 ( 882/1724- 920/1772)  26.6 W18-W24 N52-N55
      5 1572 1582 (N20W56 L=292)   446     88        1 (1540/1557-1609/1615) -78.7 W53-W57 N17-N22
      6 1678 1514 (N13W60 L=297)  2001    284        5 (1629/1414-1759/1592)  42.3 W52-W71 N08-N18
      7 1730 1470 (N09W62 L=299)   513     75        1 (1705/1442-1765/1501) -68.2 W59-W65 N06-N11
      8 1104 1396 (N25W16 L=252)   263    100        1 (1088/1343-1121/1445)  63.4 W14-W17 N21-N27
      9  725 1385 (N35E08 L=228)  1331    396        5 ( 563/1332- 931/1414) -29.5 E20-W03 N25-N39
     10 1479 1301 (N08W34 L=271)   275    104        0 (1423/1278-1513/1335)   0.0 W30-W37 N07-N09
     11 1002 1143 (N13W02 L=239)  1038    455        4 ( 801/1065-1172/1203) -35.8 E09-W09 N04-N18
     12  570 1093 (N21E26 L=211)   729    226        2 ( 472/1061- 680/1115) -11.3 E32-E17 N19-N23
     13 1712 1014 (S14W42 L=279)   282     92        0 (1678/ 996-1743/1044)   0.0 W39-W45 S15-S12
     14  237  949 (N20E57 L=180)   381     88        3 ( 212/ 925- 269/ 996) -51.3 E59-E53 N18-N23
     15  540  971 (N15E30 L=207)   557    201        0 ( 484/ 917- 628/ 993)   0.0 E35-E24 N13-N16
     16 1900  883 (S30W63 L=299)  1584    196        1 (1848/ 825-1938/ 983)  17.4 W54-W71 S32-S24
     17  146  876 (N17E71 L=165)   724    103        2 ( 107/ 837- 185/ 900) -15.9 E80-E66 N14-N18
     18 1799  790 (S31W48 L=284)   398     49        1 (1776/ 767-1822/ 808) -45.0 W44-W50 S33-S29
     19 1398  721 (S21W13 L=250)   281    128        0 (1367/ 669-1432/ 773)  33.7 W10-W16 S23-S19
     20 1548  466 (S45W20 L=257)  2907    604        4 (1303/ 305-1735/ 644)  12.8 E05-W40 S49-S38
     21  605  376 (S21E48 L=188)   630    149        2 ( 584/ 310- 633/ 444)  51.3 E52-E44 S26-S16
     22 1085  177 (S52E32 L=205)   638     79        3 (1043/ 156-1127/ 200) -23.2 E36-E27 S53-S48
  

    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