Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1327 1677 (N43E02 L=198)   690    189        0 (1261/1599-1381/1745) -26.6 E10-W04 N38-N46
      2  465 1401 (N01E45 L=155)   854    126        2 ( 438/1333- 489/1466) -32.0 E49-E41 S03-N04
      3 1394 1271 (N18W14 L=214)   705    163        0 (1322/1210-1449/1313)  -5.7 W08-W18 N16-N19
      4  525 1274 (S05E36 L=164)   246     48        0 ( 503/1249- 548/1297)  71.6 E37-E35 S06-S03
      5 1014  828 (S17W05 L=205)   931    335        0 ( 864/ 794-1170/ 857)  40.6 E02-W13 S23-S11
      6 1568  832 (S01W37 L=237)   388     78        0 (1530/ 812-1610/ 853)   9.5 W34-W40 S02-N00
      7  566  748 (S35E21 L=179)  1122    328        3 ( 493/ 646- 703/ 848)  58.6 E26-E13 S42-S24
      8 1072  654 (S25W14 L=214)   618    161        0 (1004/ 620-1155/ 686)  49.4 W11-W18 S29-S20
      9  537  603 (S45E21 L=178)   299     89        0 ( 521/ 569- 561/ 643) -38.7 E23-E18 S46-S42
     10 1409  614 (S17W36 L=236)   363     61        1 (1374/ 591-1446/ 634)  53.1 W33-W37 S18-S14
     11 1156  539 (S29W24 L=224)   929    285        0 (1017/ 520-1287/ 567)  35.5 W15-W31 S34-S23
     12  440  425 (S63E36 L=164)  1000    108        1 ( 393/ 394- 489/ 471)   0.0 E43-E26 S65-S59
     13 1418  411 (S27W48 L=248)   780    162        1 (1348/ 381-1492/ 448)   7.6 W41-W56 S28-S25
  

    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