Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1459 1631 (N27W50 L=359)   536    100        0 (1408/1613-1515/1648) -16.7 W45-W55 N25-N28
      2 1518 1523 (N20W47 L=356)   336     55        0 (1483/1499-1542/1542) -45.0 W45-W49 N17-N21
      3 1038 1424 (N29W13 L=322)   688    142        1 ( 974/1392-1107/1450) -11.3 W07-W17 N27-N30
      4 1036 1351 (N25W10 L=319)   455     82        2 ( 995/1321-1085/1379) -45.0 W07-W12 N22-N27
      5  713 1320 (N32E11 L=298)   366     95        1 ( 663/1299- 763/1341)  -8.1 E14-E07 N30-N32
      6  351 1301 (N40E42 L=267)   303     67        0 ( 315/1283- 389/1316) -18.4 E46-E37 N37-N41
      7 1753 1107 (S10W48 L=357)  1701    348        1 (1713/ 991-1780/1272)  49.4 W42-W54 S15-S01
      8 1881 1074 (S16W61 L= 10)  1923    223        7 (1822/1006-1936/1162)  66.0 W53-W70 S21-S12
      9  610 1100 (N21E23 L=287)  1162    252        2 ( 500/1071- 737/1132) -14.0 E30-E14 N18-N24
     10  438  861 (N11E40 L=269)  1721    280        5 ( 394/ 739- 508/ 980) -90.0 E43-E37 N03-N18
     11 1491  709 (S24W19 L=329)  1219    459        0 (1404/ 495-1559/ 880)  48.0 W08-W27 S35-S15
     12 1308  811 (S12W10 L=320)   517    153        1 (1259/ 743-1357/ 860)  18.4 W05-W14 S15-S10
     13  284  738 (N07E57 L=252)   643     89        1 ( 257/ 709- 320/ 782) -53.1 E59-E53 N05-N09
     14  222  720 (N07E65 L=244)   423     55        1 ( 206/ 696- 240/ 752)  45.0 E67-E62 N05-N08
     15  429  529 (S08E52 L=257)   340     41        0 ( 414/ 501- 443/ 556)  36.9 E54-E50 S09-S05
     16  936  474 (S22E21 L=288)   854    189        2 ( 884/ 388- 982/ 538)  45.0 E26-E16 S27-S18
     17  632  445 (S17E41 L=268)   510    132        0 ( 614/ 380- 657/ 495)  58.0 E45-E38 S21-S13
     18  513  448 (S14E50 L=259)  1261    199        2 ( 455/ 392- 600/ 485)   0.0 E56-E42 S18-S11
     19 1605  362 (S57W28 L=337)   583     71        1 (1575/ 337-1635/ 389) -31.0 W23-W33 S60-S53
     20  550  343 (S22E55 L=255)  1798    239        2 ( 477/ 287- 623/ 383)  -3.4 E62-E45 S26-S18
     21  848  189 (S41E46 L=264)  1310    163        0 ( 806/ 134- 886/ 265)  24.4 E57-E35 S45-S35
  

    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