Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  950 1731 (N37E19 L=297)   678    129        1 ( 884/1705-1018/1758)  -5.2 E24-E13 N35-N38
      2  707 1636 (N26E32 L=284)   292     47        1 ( 687/1618- 737/1659)   0.0 E33-E29 N25-N28
      3  426 1489 (N14E48 L=268)   418     72        0 ( 395/1460- 462/1508)  45.0 E49-E44 N11-N15
      4  230 1385 (N06E63 L=253)   966    106        2 ( 198/1334- 264/1431)  80.5 E66-E60 N02-N08
      5 1355 1344 (N18W15 L=331)   391    169        0 (1283/1327-1441/1366)  11.3 W10-W20 N16-N19
      6 1682 1237 (N18W39 L=355)  2380    335        9 (1557/1130-1772/1344) -21.3 W28-W47 N11-N22
      7  521 1281 (N02E35 L=281)   560    117        0 ( 494/1223- 546/1329)  90.0 E36-E33 S01-N04
      8 1621 1159 (N12W35 L=351)   697    135        3 (1587/1103-1649/1218)  76.0 W32-W36 N07-N15
      9 1370 1177 (N08W18 L=334)   293     61        1 (1348/1142-1395/1213)  78.7 W16-W19 N05-N10
     10 1455 1151 (N08W24 L=339)   528    119        3 (1410/1104-1493/1200) -18.4 W20-W26 N04-N10
     11 1422 1050 (N01W23 L=339)   211     65        0 (1384/1038-1459/1064)  21.8 W20-W25 N00-N02
     12  460  855 (S24E34 L=281)   322    107        0 ( 441/ 803- 477/ 907)  74.1 E36-E33 S27-S20
     13 1849  832 (S02W61 L= 17)   506     66        0 (1817/ 810-1880/ 853)  31.0 W57-W64 S03-N00
     14  608  786 (S26E23 L=293)  1153    267        3 ( 489/ 726- 738/ 833)  21.3 E32-E14 S31-S22
     15 1544  725 (S15W38 L=354)   239     61        1 (1521/ 700-1565/ 747) -14.0 W36-W40 S15-S13
     16 1432  595 (S24W35 L=350)  3930    859        7 (1162/ 512-1749/ 736)   3.4 W14-W64 S29-S13
     17  469  526 (S45E37 L=279)   806    187        1 ( 375/ 500- 552/ 554)  -3.0 E47-E28 S46-S43
     18  756  487 (S44E10 L=306)   877    276        2 ( 642/ 449- 902/ 521)   2.6 E20-W02 S45-S41
     19 1077  413 (S43W17 L=333)   310     89        1 (1043/ 393-1128/ 438)  -7.1 W13-W21 S43-S41
  

    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