Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  487 1441 (N25E42 L=  3)  1039    325        1 ( 432/1308- 514/1568) -46.7 E53-E37 N16-N33
      2 1305 1517 (N36W18 L= 63)   246     50        2 (1290/1491-1332/1541)  45.0 W17-W20 N33-N37
      3  840 1330 (N20E14 L= 31)   271    110        0 ( 794/1307- 892/1358)  33.7 E16-E10 N18-N22
      4  153 1043 (S02E69 L=336)   600     66        4 ( 128/1015- 179/1068)  20.6 E72-E64 S04-N00
      5  403  961 (S05E41 L=  4)   273     74        0 ( 391/ 923- 417/1001)  90.0 E42-E40 S07-S02
      6 1169  905 (S04W09 L= 54)   196     59        0 (1134/ 884-1196/ 922) -14.0 W07-W11 S05-S03
      7  369  798 (S16E45 L=  0)   592    148        2 ( 314/ 758- 428/ 838) -24.0 E49-E39 S17-S13
      8  319  760 (S18E50 L=355)  1281    239        4 ( 260/ 671- 381/ 835) -42.0 E55-E45 S23-S14
      9 1592  721 (S14W40 L= 85)   387     78        1 (1552/ 706-1628/ 736)  -9.5 W37-W43 S14-S13
     10 1303  658 (S19W20 L= 65)   345    190        0 (1256/ 626-1379/ 721) -29.1 W16-W25 S21-S15
     11  296  677 (S24E55 L=350)   486    116        2 ( 251/ 640- 342/ 716)  17.1 E61-E48 S27-S21
     12  511  553 (S31E36 L=  9)  1071    245        3 ( 429/ 515- 632/ 610)  21.8 E45-E25 S34-S26
     13  893  484 (S34E06 L= 38)   338     96        0 ( 850/ 468- 951/ 502)  23.2 E09-E02 S34-S31
  

    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